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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGH $ RES RVED. 
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fe 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOPTWARE OR ANY OTHER 
COPIES. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE T * 
OTHER PERSON, TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S” HERESY 
TRANSFERRED. : 
& 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. . 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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MODIFIED BY: 
v03-054 wMC0054 Wayne Cardoza 06-Aug-1984 
Tie IRPMIN to SRPSIZE. 
v03-053 wMc0053 Wayne Cardoza 30-Jul-1984 


New minimum size for IRP List. 


v03-052 TCM0017 
Use the 


udy ¢ Matthews 24-Jul-1984 
RPBSB_ CTRLLT field when determining the boot 


device's controller letter. 
v03-051 MSHO068 Michael S. Harve ey 23-Jul-1984 
Correctly initialize the HWTYPE field of the local SB. 
v03-050 WHM0001 Bill Matthews 09-Jul-19 


84 
Load SYSLOAxxx before during any 1/0 to the console terminal. 
The console terminal 1/0 routines are now in SYSLOAxxx. 


V03-049 LMP0275 Pilant, 12-Jul-1984 19:57 
nitialize the ati fate in the ORB to be a null descriptor 
ist rether than an empty queve. This avoids the overhead 

of locki ng and ye the ACL mutex, only to find out 
that the ACL was empty. 


V03-048 wMC0048 Wayne Cardoza 05-Jul-1984 
Pay attention to the SRPMIN parameter. 
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eh tetaece ne check of LRPMIN against 480 - this used to be so 
Add Lecntarer checking of size against MIN for SRP, LRP. 


v03-047 po Ralph 0. Weber 21-MAY-1984 
ome *Togsu., UNITS to be 1 in 1D8 created for system disk 
class driver. 


v03-046 pouds6> -y ° °. Weber 11=-MAY-1984 
foree DEVSM_NNM t be tore 1OCSCVT PE vn is called to 
build the evonetar tan . SYSSSYSDEVICE.~ s is required to 
cause IOCSCVT_DEVNAM to prepend the node ti, or allocation 
class name "eld. 


v03-045 ROWO0358 
Return to 
SYSSSYSDEV 
during INI 
SYSSSYSDEV 
process. 


v03-044 ROW035S2 Ralph 0. Weber 27-APR=-1984 
Change name conversion fla a from -1 (a displayable 
device name) to zero (an allocation class device name) Ld call 
to IOCSCVT_DEVNAM used to build. svessvepevice i HT 
translation. This causes the translation ror SY SSYSDEVICE ee 
be useable over time and various cluster failures. for clas 
drivers, cause a real IDB to be aliocated an initialized. This 
corrects a misformed 1/0 database problem which causes the 
SYSGEN command SHOW /DEVICE to crash systems and  Generenss 
eliminates maintenance headaches in this area. so remove 
reference to the obsolete $LOGDEF. 


V03-043 LMP0240 L. Mark Pilant, 26-Apr-1984 8:45 
pape sere an ORB is created for the UCB when booting from an 
evice. 


v03-042 EMD0079 Ellen M. Dusseault 11-Apr-1984 
Store base address of SYSLOA image in MMGSGL PSYSLOA BASE. 


lph 0. Weber 3-MAY-1984 

in the cal to socscvt _DEVNAM when building 
allocation class is not correctly known 
tecet ton class device name translation for 


usin 
iSE. 
Ice ave to be formed later in the booting 
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v03-041 KTA3113 bey | 15-Mar-1984 
Fill in UCBSW_ MSCPUNI for MASC/UDA/Emulated disks. 
v03-040 Nh A3109 Kerbey T. Altmann 11-Mar-1984 


Fill in more fields in permanent local SB. 


v03-039 MMD0251 Reg Due 27-Feb-1984 17:50 
haa. support for $M ACCESS "Snotal taster specific accessibility 
routine 


v03-038 ROW0311 note 0. Weber 6-F EB-1984 
Make the page s5¢ tp for use by mount verification a different 
page from black hole page. Hecause mount verification 
lL soon be performing read-modify-wr te operations on the 
storage control block, it must have a private page of working 
storage. 
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S$Ep=198¢ 08:42:58 ESYS\SacHINI RAR: ree 


Ralph 0. Weber 5-JAN-1984 
x setup of UCB address in IDBSL_UCBLST rer system disk IDB. 
The systes isk 108 is eure assuming @ unit number no greater 
than 7. This is not true for MSCP supported system disks. 
Since the MSCP disk class driver does not used IDB$L_UCBLST 
simply do not setup the field when the unit number exceeds ?. 


v03-036 $RB0105 Steve Beckhardt 11-Nov-1983 


Added initialization of LCK$GB_HTBLSHFT. 


v03-035 ACG0372 Andrew C. Goldstein 11-Nov-1983 10:32 


Change page protection of paged pool to ERKW 


v03-034 TCMO016 Trudy C. Matthews 22-Sep-1983 


Store CLUSGL_ALLOCLS in system disk'’s DDB. 


v03-033 ROW0207 Ralph 0. Weber 13-AUG-1983 


v03-032 wMc0032 Wayne Cardoza 


v03-031 RASO175 R 


v03-030 KDM0062 


Establish page protection of UR on all PTEs in the erase 
ae page-table. This corrects a bug which was causing the 

, pert to crash because the PTEs contained a page protection 
° ° 


06-Aug-1983 
Remove setting of cluster-wide bit for gyeten disk. 
Fix register destroyed by misplaced MOVC5. 


on Schaefer 28-Jul-1983 
Change definitions of SYSSSYSDEVICE and SYS$DISK 
to be TERMINAL/CONCEALED rather than use ‘'_"’s. 


Kathleen D. Morse 18-Jul-1983 
Move initialization of time-wait data cells to a 
loadable, cpu-dependent routine, EXESINI_TIMWAIT. 
v03-029 TCM0015 ioudy C Met thevs 28-Jul-1983 
Change BBS’ to ''BBSS" in KTA3068. 
V03-028 KTA3068 Kerbey T. Altmann 06-Jul-1983 
Stuff EXE$GQ_TODCBASE into localsb as incarnation number. 


Remove CPU-specific code in console/boot Cayce init. 
Add support for booting off “$94 emulated disks. 
Make system disk always potentially cluster-wide. 


v03-027 KTA3060 Kerbey T. Altmann 2-Jun-1983 
Add support for boot device name passed in from 
SYSBOOT. Also make HSC disk always on ‘A® controller. 
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v03-026 erases? 


DMWalp 21-Jun-1983 
onvert boot device logical name from CRELOG to CRELNM 


v03-025 TCM0014 Toudy .C. Matthews 10-Jun-1983 


Fix comment in TCMO 


v03-024 Tcnoots Trudy C. Matthews 21-Apr-1983 
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d new input register (R4) to call to IOCSCVT_DEVNAM. 


v03-024 KDM0044 Kathleen D. Morse 03-May-1983 
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Hook instruction emulation code into “tp if required. 


v03-023 DWwT0093 David W. Thiel ir; -1983 
shit tes See local system block before inithat zing 


v03-022 CwH1002 CW Hobbs 24-Feb-1983 
Compute SCHSGL_PIXWIDTH cell from max process count, init 
extended pid célls of null and swapper processes. 


v03-021 TCM0012 rudy C. Matthews 15-Feb-1983 
Update CPUDISP at V0 include 790-specific path. 


v03-020 DWT0072 avid W. Thiel 28-Jan-1983 
Initialize loadable cluster code after SCS loadable code. 


v03-019 $1TJ3057 Ste Jeffre 21-Jan-1983 
- Added code to link SERAPAT loadable code to vectors in system. 
= Added code to create system Erase pes Buffer (EPB) and 

the Psuedo Page Table (PPT) to map it 


v03-018 SRBO05S9 Steve Beckhardt 6-Jan-1983 
Added code to Link cluster loadable code to vectors 
in system. 

v03-017 KTA3022 Kerbey T. Altmann eeapega tees 
Initialize perm local system block. Add setting 


of scs nodename into boot device name, if applicable. 


v03-015 $RB0057 Steve Beckhardt 16-Dec-1982 
Changed initialization of lock id table to store 
a sequence number of 1 in the 2nd word of each entry. 
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aor 1 BA of the TIMEWAIT macro loop. 
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0 
v03-014 TCMO011 rudy C, Matthews 16-Dec-1982 
Initialize R2 RB oa. ‘calling CONSSENDCONSCMD. 
v03-013 DMwW4018 DMWalp 15-Dec-1982 
Combined CRELOG lostest name blocks, and pass it via 
LNM pointer 
v03-012 TCM0010 Trudy C. Matthews 10-Nov-1982 
8 Use new input values in call to CONSSENDCONSCMD . 
v03-011 DMW4005 10-Nov-1982 
Recode logical Hen * ocks for SYSS$DISK and. SY SSSYSDEVICE 
to use external interface ( not internal ) of $CRELO 
v03-010 KTA3018 pera! T. Altmann 05-Nov-1982 
hye as loading Dv INI OA. 
v03-009 8LS0190 Benn Schreiber 19-Oct-1982 
Ensure console terminal is not autobaud and scope 
v03-008 Tcnogos Trudy C. Matthews 12-0c t-1982 
elay loop (to avoid saturating the Unibus) to the 
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V03-007 wMC0001 Wayne Cardoza 28-Sep-1982 
Give RPB a PFN data base. 


V03-006 $TJ3022 Steven Jeffreys 22-Sep-1982 
Renamed routine LINK_VEC to EXESLINK_VEC and moved it 
o its own module, LINKVEC. Note that EXESLINK_VEC 
s in a psect that is removed from the system's 
address space by INIT, and is therefore unavailable 
for use, in the EXEC, after INIT finishes. 


vO3-005 BLS0183 Benn Schreiber 16-Aug-1982 
Changes for loadable console support 


v03-004 $RB0051 Steve Beckhardt 11-Jun-1982 
Fixed bug that occurred if the DEADLOCK_WAIT system 


parameter was zero at boot time and then later set non-zero. 
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SrSEP=1 $86 


03:43 


> LOCAL SYMBOLS 

: CHARACTER DEFINITIONS 
CR=1 

LF=1 

DYNSC_HEADLEN=12 

: LOCAL DATA 


PSECT ZSDEBUGA,PAGE 
ZSINITOCO,LONG 


ZSINIT,PAGE 


XDELTABASE : 
EXESA_BOOPARAM: 
INI_BASE: 


AX/VIS © V04-00 Pa IN 
4g SYS. eR IT.MAR 31 - 3 V 
CARRIAGE RETURN 
LINE FEED 
LENGTH OF A SELF-IDENT HEADER 


PSECT TO MARK BASE OF XDELTA 


Psect to mark base of bootstrap 
parameter block. 


’. 9 
INIT PROCESSOR INITIALIZATION -SEP- 214: INI 
180 javiacizarion MESSRS SUISSE MMaae ARI? Pome] | 
4 ; 
5 : The following Logical Name Structures must be contiguous 
5 : Boot Device Logical name equivalence 
: BDL Sct _DISK_LOG:: ; item List for SYS$DISK S$CRELNM 
40 3 in SWAPPER init 
00 4 41 ORD 4, LNMS_ ATTRIBUTES 3; size of attributes and item code 
4 : 4 tg BDL_L _piik AT_PTR = . = BDLSGL_DISK_LOG ; attribute pointer offset 
" ; re LONG 1108 - BDL Set DISK-LOG ; pointer to SYSSDISK attributes 
C 45 BDL_W _DISK €Q.Sz2 =,- BDL SGL_ DISK_LOG ; equiv name size offset 
0 rf} oW O,LNMS_STRING ~ ; size of str ne, and item code 
1 47 BDL_L DISK EQ_PTR = . = BDLSGL_DISK_LOG ; equiv name stri ng pointer offset 
000001D" 001 re -LONG” 100$ = BDLSGL-DISK-LOG ; pointer to SYSSDISK equiv name string 
00000000 000 9 14 4 QUAD 3; end of item List 
F 1C 50 . *A\L 3; space for the beading nis 
0000001D 1D 51 6D. L_DISK_EQV scr 0 DISK_LOG ; equiv name string offse 
30 30 43 55 44 24 GE GE GE 4E 4E 4 19 52 1008 ASCII 7 NNNINNNSDUCO : — name string ane Re Im 
00000000 8 53 -LONG 0 i} 
000000 3 F 54 -BLKB <<<.-BDLSGL_DISK _Log>+1sse%eci p>ee, “-BDLSGL _DISK_LOG> ; quad 
0000020 9 $2 110$:  .LONG LNMSM_ TERMINAL 3 terminal att 
00000034 r 33 BDLSL_SYSDLOG ==. = BDLSGL_DISK_LOG ; item, ttet for SySqsresevace SCRELNM 
0003 0004 4 359 :WORD —_4,LNMS_ATTRIBUTES : size of attributes and iten code 
000000 8 60 BDL_L _SYSD AT_PTR = BDLSGL_DISK_LOG ; attribute pointer offse 
00000070° $e 61 “LON 7 10$° = BDLSGL~ _DISK “tog 3 pointer to eySSSYSDEVICE attributes 
$0 0 45 é§ BDL_W_ SYSD ce 52. = . = BOLSGL_DISK_LOG ; M4 hy name size offset 
000 4 0, LNMS_ STRING ~ : size of string and ‘tem code 
0 4 44 $3 BDL_L _SYSD co. PTR = . = BDLSGL_DISK_LOG ; equiv name acting pointer offset 
0000051" 0044 6 LON ~% ae - BDLSGL_-DISK_LOG ; ptr to SYSSSYSDE ICE equiv name str 
00000000 000000 $8 .Q 3 end of item | 
F 5 68 ue 3; space for AY leading“ ss 
00000051 51 $3 BOL st L _Sy¥$D EQv BOLS$G "1 ae _LOG ; equiv name string of 
30 30 43 55 44 24 GE GE GE 4E of $f 4 ASCII MA...) . 3 aie name string an A 
09000000 5F 71 -LONG 0 Sy or 
00 $3 Ke) BLK <<<, -BDLSGL_DISK _Log>+1sse%eci By * -BDLSGL _DISK_LOG>; quad 
00000200 BY 73 210$ LON LNMSM_ TERMINAL 3; terminal attr 
00000074 0074 75 BDLSS_CRELNM_ITMLST == . - BDLSGL_DISK_LOG 


INIT PROCESSOR INITIALIZATION 16-SEP-1984 00:14: AX/VMS Macro v04- Pp 1 
404-000 BrSEp 1984 Osiucess LenS tec T RATS Manes” ave 18, 
7% qT? : 
f 8 ; MEMORY MANAGEMENT DATA : 
74 0 bapcop: 
74 1; «LONG — <MMGSAL_PGDCOD-<1831>>a-9 ; 1ST VPN OF PAGED CODE 
000 9 74 5 eLL IS LOADED BY INIT 
FFC * 0078 “LONG <MMGSAL PGDCODEN-<1a31>>4- - LAST + 1 VPN OF PAGED CODE 
7C4 7 4 -LONG <PTESC_OR ! PTESC_KOWN ! PTESM_TYP1 ! PTESM_TYPO> 
: 5 3; SECTION 0 PAGE TABLE ENTRY 
90000074 : PGDCODBEG=PGDCOD 3 BEGINNING OF PAGED CODE 
000073 PGDCODEND=PGDCOD+4 3 LAST + 1 PAGE OF PAGED CODE 
b 8 names ; SECTION 0 PAGE TABLE ENTRY 
00000000 0 ",LONG 0 : 1ST VPN OF PAGED DYNAMIC POOL 
084 391 : STORED BY INIT CO 
00000000 0084 3 .LONG 0 ; LAST + 1 VPN OF PAGED DYNAMIC POOL 
0 } 9 STORED BY INIT CODE 
30000000 : 8 3 .LONG <PTESC_ERKW ! PTESC_KOWNS ; DEMAND ZERO PTE 
+43 38 : ; SYSTEM WINDOW CONTROL BLOCK TEMPLATE FOR MAPPING THE SYSTEM IMAGE 
O08 98 SyswcB: 
008C 99 ASSUME wWCBSC -LENGTH EQ WCBSC_MAP 
000000B8C 908¢ 40 10s: -BLKB WCBSC"LENG : ALLOCATE THE FRONT OF A WINDOW 
00000094 it 40¢ - -=10$+WCBSW SIZE : FILL IN THE SIZE FIELD 
0030 SR 40 WCBSC_LENGTH 3; NOT COUNTING RETRIEVAL POINTERS 
a 9096 40% -S10S+WCBSB TYPE : TYPE FIELD 
00000097 0097 406 - =VOS+uCBSB ACCESS ; ACCESS FIELD 
65 0097 407 YTE WCBSM_READ ! - ; ACCESSED FOR READ 
0098 408 WCBSM_NOTFCP ! - : NOT AN FCP WINDOW 
098 409 WCBSM_CATHEDRAL ! - : CATHEDRAL WINDOW 
098 410 WCBSM~ COMPLETE 3 MAPS THE ENTIRE FILE 
pooo0gRs 4 ai] = BLOS*UCESL_STVEN 3: STARTING VIRTUAL BLOCK NUMBER 
000000BC¢ ooBC “i$ 72208 : BACK TO END OF WCB 
OBC 415 : HWTYPE TABLE 
5 38 37 56 tet 419 ; .ASCIL /V785/ : SPECIAL VARIANT OF 780 
0 7 56 00C 418 HWTYPE: .ASCII /V780/ : 
0 756 00C4) 41 eASCII = /V750/ : 
7 6 C8 4 9 wASCII = /V7 0/ : 
7 CC 4 sASCII = /V790/ : 
53 53 6 0000 4 5 ASCII INBSS/ : 
4E 4E 6 0004 4 -ASCII = /V8NN/ : 
31 36 6 00D8 424 eASCIL §=/VUVI/ > MICRO-VAX 1 
2 56 55 56 p ‘ 5 eASCII = /VUV2/ : 
E 4 $i MESSAGES 
60 4 Si NOSPACE : : INSUFFICIENT NON-PAGED POOL 
20 54 49 of 49 43 $3 38 45 $3 A OD E 450 -ASCII <CR><LF>/ZEXECINIT-F-Insufficient non-paged pool/ 
65 69 63 6 7 6E D 46 eC 
64 65 67 61 D 6E 6F 6E 20 4 of F 
6C 6F 6F 70 04 


984 00:14: AX/VMS Macro V04-00 
3b 80:13:58 HONS ERCTINIT MARsS 
<CRO<LF>/ZEXECINIT-FeInsufficient physical memory for / 


«ASCIZ <CR><LF> 


www 


PROCESSOR INITIALIZATION 


v04-000 


eASCIZ <CRO<LFD>/ZEXECINIT-F-Insufficient SPT entries/<CR><LF> 


eASCIZ /minimum working set/<CR><LF> 


«ASCII 


1 
7 NOPHY SME 
435 NOSPT: 


Aa0WAAato0WMN 
ow Ooouowuoowrono 


<ownowctownm 
ornr. OWOVDOWrr 


NAO AUFNAOA 
NTNOOONMTNO 


MWOULCOMwIM = 
wT Or. OOWw TOMO 


DWMAVOMAMOO 
UV OP- OF-UV- NO 


PNA OMMUUAST 
TRARROSRI 


MOMOOTMOO 
TOrwOr- wv OC 


a0ooooae 
woouvosrono 


WOmur iw wi 
TooorcowsOO 


OM—NLOOmM 
WS NaF — ee 


wTOvonm wor 
nouonwnr Wor 
ov" anno 
RO $3 NOOO 


“Illegally formatted terminal service/<CR><LF> 


sASCIZ <CR><LF>/ZEXECINIT-F-ILlegal OPAO: UCB size/<CR><LF> 
.ASCIZ <CR><LF>/ZEXECINIT-F-ILlegal SYSDISK UCB size/<CR><LF> 


eASCIZ <CRO<LF>/ZEXECINIT-F 


436 BADCONUCB: 
a3) 
$38 BADDSKUCB: 
439 
440 BADTTYDRV: 


<CR><LF>/ZEXECINIT-F-Address is not within the/ 


-ASCIZ / nonpaged system image, SYS.EXE/<CR><LF> 


Were nnn 
NuwToouoOonm 


wT sr wow 
ror COON 


ovo oom 
Wom hRVS 


nuNerTr —O@w 
rer OOM 


MAO -OW 
roo oov 


Ooms We o 
rrr OOS 


pe hee ~< 
wv woo 
Cc ow 
S RSS 
w Mw 
oo fT 
oO 
& RS 


<CR><LF>/ZEXECINIT-F-Instruction mismatch between/ 
-ASCIZ / old opcode table and instruction stream/<CR><LF> 


— — 
— — 
v ve 
” i Ad 
< wt 
° oe 
o 
YL 
a 
o 
‘ 4 
a 
< 
@o 
w mo Mm 
w wv wT 
as ww w 
MONMWE~T OVW EO 
UUM IN TF TINO OR-F. COO 


<qoacvwurwn 
Onin OOr. Oo 


NO Or CCU 
NT Or OOr. 0 


MWWOWF VS 
rooowowr. oO 


DMIPMAOWM SG 
WEB. OMOOO 


wwTrouuwovwd 
wr OOONR SO 


MN- O-- OO 
wero fF OWOO 


Owner Muu 
vr OOO 


be & 
woo ovo 
SX3 SRR 


zoo nom 
oN OOP 


wo 
oun Ow 
RSS ROX 


INIT PROCESSOR INITIALIZATION 16-SEP-1984 AX/VMS vO4~ 0 Page 12 
v04-000 ety 7 89:13 1g SYS.SR ci TM arf ” 
90 449 34 
90 4 p : SYSTEM BOOT ENTRY POINTS TO START UP SYSTEM 
4 2 § : INPUTS: 
90 454: RO = PHYSICAL ADDRESS OF EXESINIT 
90 455: Rit : PHYS CAL ADDRESS OF RESTART PARAMETER BLOCK (RPB) 
9 4 $ ; SBR/P SLR = SET TO DESCRIBE $ 
Py 2 = 
9 ish PRS P BRIPRS. POLR - SET TO MAP EXESINIT VIRTUAL = REAL 
90 459° 
9p 460 -ALIGN LONG 
AO 461 EXESINIT:: : INIT STA 
DO 02a 46¢ MOVL §RPBSL_BOOTRS(R11),FP =: GET DEBUG FLAGS 
DA 0246 46 MTPR #1,S*#PRS_MAPEN + ENABLE MAPPING 
17 O2A7 464 JMP 4 $ ; AND SET PC IN SYSTEM SPACE 
0( DO O2AD 465 10$: MOVL EXESGL_INTS : SET TO USE INTERRUPT STACK 
90000000 D0 0284 466 MOVL  EXESGL ~DEFFLAGS, EXESGL_FLAGS SE TABLISH CORRECT DEFAULTS 
90000000 00 O¢BF 46 MOV. — EXESGL=SCB.RI ; GET nobniss OF 
000000 DE 0206 468 MOVAL @#EXE srBiT *X28(R1) + CONNECT SYS.EXE TRACE, 
DE O2c 469 MOVAL a#EXES$B X2C(R1) + BREAKPOINT 
DE 0206 470 MOVAL SEXESROPRAND. *x18(R1) ; RESERVED OPERAND , 
DE DE 471 MOVAL a@#EXESACVIOLAT, “xX gr) : ACCESS VIOLATION 
D 0 E 47g MOVAL MMGSPAGEFAULT,“X24(R1) ; AND PAGE FAULT GANDLERS TO SCB 
D a3 47 ITL  #<ARCSM_CHAR_EMUL!ARCSM_DCML_EMUL! _EDP L! 
F947 ARCSM_CRC_EMOL>,G*EXESGC_ARCAFLAG ; ARE "STRING/DECIMAL /EDITPC/ 
F9 475 7 crc I RUCTIONS BEING EMULAT 
0B 13 O2F9 47 BEQL ‘118 : BR IF DONE IN NARDUARE/E TRAWARE 
54 000'CF 00 FB 47 MOVL  W*BOOSGL_VAXEMUL ,R4 : ADR WHERE EMULATION CODE IS LOADED 
54 04 M4 OC 0 478 ADDL2 4(R4),R4 ; GET ADR OF INITIALIZATION ROUT INE 
64 16 % 479 cea JSB (R4) CONNECT CHAR EMUL TO SCB 
00000000'GF O0000F00 8F D3 6 481 BITL —#<ARCSM_DFLT EMUL!ARCSM_FFLT EMUL!ARCSM HFLT EMUL ARE 
| ee g ARCSM_GFLT_EMUL>, G*EXESGL -ARTHELAG FLT PT EING. ERULATED? 
0B 13 #O311 4 BEQL "BR I é th HARDWARE/F IRM ARE 
54 0000'CF 06 13 484 L W*BoosGL _FPEMUL .R4 ; ADR WHE LATION CODE IS LOADED 
54 04 M4 OC 18 485 ADDL2 : GET ADR OF INITIALIZATION ROUTINE 
64 16 3 4 6 a JSB tre) : CONNECT FLT PT EMUL TO OPCDEC IN SCB 
00" €1 1 488 BBC S*#EXESV_SSINHIBIT,- 
10 GF 489 G*EXESGL FLAGS, : IF WE ARE INHIBITING, SYSTEM 
40 Al ‘GF DE 6 490 MOVAL  G*EXESCMODKRNLK,“X40(R1)'; SERVICES, REVECTOR THE ENT 
44 Al 'GF DE E 491 ian MOVAL  G*EXESCMODEXECX.*X44(R1) : POINTS FOR THE CHMK/CHME SERVICES 
EF $ res EXTZV #VASV_VPNAVASS_VPN.RILR2 ; GET THE VPN OF THE SCB 
Derees DO 49% Ov @MMGSCL_SPTBASETR2),R2 att PTE 
F 0343 495 EXTZV #PTESV_PEN,#PTESS_PEN, R2,R ; EXTRACT PEN 
8 0348 49 ASHL : AND CONVERT TO BYTE ADDRESS 
DA 034C 49 MTPR R2.S*#PRS ; : SET SYSTEM CONTROL BLOCK BASE 
14 i 0 O34F 498 BB pRbaSY. roeBuG FP,20$ : KEEP DEBUGGER IF REQUESTED 
1 3 499 15$ NOP ; SOURCE OF NOP OPCODE 
00000000'EF FC AF rs : MOVB 15%, INISBRK ; PREVENT INITIAL BREAKPOINT 
FFC ‘BF OD MOVL A<CiDELTABASE-*X8000000050 a-9>,- 
11E9'CF 6 FREE ; SETFR rée DESCRIPTOR TO RELEASE DEBUGGER 
ca gngonnnrah HE BRE? 8 zon, Rllaa SMosiaprsecanns | SENT WHoR ature 
5 Al 80080000" oF 9E rt 5 MOVAB a#XDELTBIT,* TYE R1) : SET TBIT VECTOR 


INI] 


oc 


PROCESSOR INITIALIZATION Mee 7 ety 9 9: 3: is rls i AA | we Page } 


506 : FOR LARGER THAN 32 MBYTES Use LONGWORD FORMAT . 
PFN_DISP_IF_BIGPFN_fH END_BIGPFN.CODE=23$ 


~~~ 


:This code executes if the PFN Link roSsee are RING’? § ocrers- 
hae G*XDSS$GT_LONG_PFN, gn nO Ss L_XESTRIN SAVED XE STR 


00000000 ' GF 00 ‘GF 6DE ING 
00000000 * GF 80000000" GF DE GaXDSSGT. [LONG PFN, G*XDSSGL_XFSTRING ; SAVED XF STRING 


MOVAL 
10 ; ornenui tt USE WORD FORM 
1 N_DISP_ELS ELSE _CODE=23$, COMMON_CODE=26$ 


;This code execu the PFN Link arrays are word arrays. 
MOVAL 


PrP OODOOOoON~Y 
NNN 


; 
00000000'GF  00000000'GF ve 1 ESS ossch GORD PENS G*XDSSGL_XESTRING ; SAVED XE STRING 
00000000 ' GF 0000000 * GF DE 318 MOVAL G*XDSSGT- WORD" PFN,G a5bgsel. MFSTRING ; SAVED XF STRING 
AD 14 PFN_DISP_ENDIF TOMMOR_C Oe 
AD 15 308: End of code that depends on size of PFN Link arrays 
AD 9 ; Load SYSLOAxxx and connect he vectors so the console terminal I/0 
AD 18 3; routines can be used. The initialization routine for SYSLOA is called 
ns i) ; later when the rest of the loadable code is initialized. 
AD + INVALID ; Clear temporary boot device mapping 
d0 89 § MOVL W*BOOSGL_SYSLOA,R2 : hoo pn yy Remig i l 
3 ress o xxx image " 
00000500" EF gpoo' ss dO we? : : MOVL R2,XDEL _COADBASE 3 Save base f loadable cote | = 
: register 
00000000'GF 52 »0 0 § MOVL R2,G*MMGSGL_SYSLOA_BASE ; store address Ht sysloa image in 
C ; in mmg field so that sda can find it. 
53 Q0000000'GF 0D ¢ 3 MOVAL G*EXESAL LOAVEC. R3 3; Address of resident vectors. 
sleet a'ea if 1 CA JSB G*EXESLIAK ; Connect SYSLOA vectors 
‘GF 1 4 , JSB G*CONSINIT— “UY 3; Initialize the console terminal 
B 04 bg § CLRL R11 ; INIDICATE CONSOLE TERMINAL 
51 ‘"E 0 D MOVAL SYSS$SGT_ANNOUNCE ,R1 ; GET ADDRESS OF ANNOUNCEMENT MESSAGE 
Q0000000'EF 1 Of ia JSB EXESOUTZSTRING 3; ANNOUNCE SYSTEM 
ES g: ; LOAD ARRAYS WITH VPN OF BOUNDARY BETWEEN NONPAGED AND PAGEABLE EXEC 
50 00000000‘ GF 15 9 €F E 8 ' EXTZV #VASV_VPN,#VASS_VPN, G*MMGSGL One ie’ RO — ADDRESS INTO VPN 
FC81 CF «350 b a MOVL RO, PGBCOD 3 $10 ENE N Popco 6 ARRA 
0 0 9¢ F 40 ASHL # *RO,R 3 aAKE RO INTO BYTE INDEX INTO SPT 
00000046 ' EF 1) F 41 MOVL RO PGOCOD_LIN ; LOAD THIS VALUE INTO ARRAY USED 
FE 4g : BY INISRDONLY/INIS 
28 D7 F 4 DECL 49 3 a LIMIT IS oe SMALLER 
0000003A'EF dO > MOVL RO, INI_RDONLY_LIST+4 ; THAN LOWER LIMIT) 
re ; SET UP NONPAGED POOL LISTHEAD AND INITIAL CONTENTS 
50 Seccssee"es b0 7 rt , MOVL MMGSGL_NPAGEDYN,RO : GET ADDRESS OF NON-PAGED POOL 
D4 4 CLRL (R : ZAP FORWARD LINK 
D 1 9 MOVL W*BOOSGL_NPAGEDYN,4(RO) : SET SIZE OF FREE BLOCK 
00000006 "Er D 16 MOVL  RO,EXESGC_NONPAGED+4 =; SET ADDRESS OF POOL 
43 1D : MOVAL @MMGSGL_SYSPHD,RS ger ADDRESS OF SYSTEM HEADER 
34 3 4 i MOVB SGN GB -SYSPEC PHDSB_DFPF rec (R5) SET SYS PAGE FAULT CLUSTER 
i bf § 5 MOVAL ESoL 3 PuT FLAGS ADDRESS IN CONVENIENT PLACE 
E 6 BBC BABS v_ “thioPt. FP,NODEBUG ; BR IF NORMAL STARTUP(NO BREAKPOINT) 


vo42000 
00000000 ‘ EF 
“Er 
EF 
"EF 


. 


PROCESSOR INITIALIZATION 1 -1 :14:12 VAX/VMS Macr Pp 
BrSEem obs Osiusies FANS VRS Bacre vO. oge 
’ 3 
; RO = ADDRESS OF EX XESGL FLAGS 
; R5 = ADDRESS OF SYSTEM”PROCESS HEADER. 
16 , tee JSB INISBRK ; OTHERWISE BREAKPOINT 
B0 ; “MOVW «=. SGNSGW_MAXPRCCT,SCHSGW_PROCLIM ; SET TENATIVE LIMIT FOR PROCS 
4 5 ; SET MODIFIED PAGE WRITER PARAMETERS 
C 044 $ ‘ MOVZWL MPWSGW_HILIM, SCHSGL -MEYLIMSY LIST HIGH THRES 
¢ 3 8 MOV2WL MPWSGW~ “HILIM. SCH HS$GL"MFYLI tur URRENT AND SAVE VA toes 
C 04 f MOVZWL MPWSGW"LOLIM. SCHSGL mEYLOSV’ SAVE VALUE FOR LOW THRESHOLD 
¢ $ 0 MOV2WL MPWSGW"LOLIM.SCH Wset <MFYLOLIM ; LOW LIST THRESHOLD 
& 476 4 J$8 INISWRITABLE System WRITABLE UNTIL INIT COMPLETES 


J 9 
PROCESSOR INITIALIZATION 16-SEP-1984 00:14: AX/VMS Macro V04- Pa 1 
Alter BPN Folarekete f Large PFN config o7SEb 19 * 88:13:85 SYS SRCTINIT MARES - (3) 
- SUBTITLE Alter PFN references if Large PFN configuration 
here is less than 32 Mbytes of memory described in the PFN data base 


ft 
MMGSGW_BIGPFN contains zero), this next ofsek of code does nothing. 
therwise, an address table is scanned. 


r~ 
—~ 
BS 
—~ 


~~~ 
>> 
~~ 


I 
( 
0 
1. Each address must be in the nonpaged system image. 
2. The current contents are verified as a consistency check. 


3. A new (lLongword context) opcode is stored at that location. 
Failure of gi her test prevents the system from being bootstrapped with 


De Se Oe Oe Be Oe Oe Oe Be Os Oe Oe Oe Se Oe ee 
+ 


Fat ek ee 
ANN 
>>> >> 

OO 0000000000 0000 000000 SI 


NRO ODNAUNE WH" O ODNOUNSE 


47A more than 32 Mbytes of physical memory. (That is, the PHYSICAL PAGES 
47A parameter must be used to allow the system to come up using less that 
of its total amount of physical memory.) 
47A 
te) PFN_DISP_IF _BIGPFN_THEN END_BIGPFN_CODE=100$ 
5 93 This code executes if the PFN Link arrays are longword arrays. 
OQOOOOO00'EF ODE 94 MOVAL MMGSAL_FIXUPTBL,R1 ; Address of opcode/address table 
QOOOOO00"EF oD 48 95 MOVAL MMGSAL_ENDDRIVE ,R2 i SYS.EXE bounds check lower Limit 
sees * ell D 49 36 MOVL MMGS$GL~PGDCOD,RS 3: SYS.EXE bounds check upper Limit 
50 oe 49 97 10$: MOVL (R1)+,RO ; Get address of next fixup 
49A a8 $ now points to old opcode byte) 
3 13. O49A 9 BEQL 50$ : Zero indicates end of List 
52 0 »b1 049C 600 CMPL RO,R2 : Is address too small? 
F iF O49F 601 BLSsu 208 : Quit with error if too small 
53 0 »Di O4A1l 6 § CMPL 8 R3 : Is address too large? 
A if 4A4 ¢ BGEQU 20% ; Error exit in this case, too 
60 1 9 4A 604 CMPB (R1)+, (RO) 3; Perform sanity check 
4A 605 ; _(R1 now points to new opcode byte) 
oc i Ag O06 BNEQU 30$ ; Quit with error if different 
60 1 4AB 6 MOVB (R1)+, (RO) 3; Finally, alter the opcode 
AE 6 : : (RI points to next address in table) 
Fr 69 ~ o BRB 10$ 3; and go back for the next one 
51 FD4B cf 9 B ei 208: MOVAB BAD_ADDRESS,R1 ; Select address-out-of-range message 
Zs ‘s a) BRB 40$ ; and join common termination code 
51 FD8D CF 9E Q487 614 783: MOVAB BAD_OPCODE,R1 ; Select opcode-mismatch message 
B 04 BC 91? 40$: CLAL R11 : Specify console terminal 
OOOOO000'EF 16 oF 18 JSB EXESOUTZSTRING :; Type out error message 
00 rt: ot HALT : and finally halt the processor 
C gis ; This is the successful exit path after all opcodes have been altered. It 
C y ; is necessary to execute an REI instruction in order that any instruction 
: ; lookahead be invalidated and the new opcodes used. 
7E C C ‘ Sos: MOVPSL -(SP) 3; Store PSL for REI 
CB‘ AF F C 4 PUSHAB 6*100$ 3 Push PC also 
02 te 5 REI ; Drop through to next instruction 
. $ PFN_DISP_ENDIF COMMON_CODE=100$ 


se 
_ 


PROCESSOR INITIALIZAT 
Alter PFN references 


04(B 


1 sroe pew contig MCSECCHSEE BOLS:IS HAREM Sere vo4nn0 


sEnd of code that depends on size of PFN Link arrays 


ree 


it} 


<9 
vO4-000 Initialize pageable system code "SSEP=198¢ 09:43:58 ESYEYSACHINIT mans) eet 


4CB - SUBTITLE Initialize pageable system code 
4(B INI_PAGING: 
56 OO0O'CF DO O4¢ MOVL We B00$ : 8007 CB, R6 ; ADDRESS OF BOOT CONTROL BLOCK 
0000000: EF $ DO 04D : OVL staett SET A DDRESS IN SYSCOMMON 
3—E 00000 F ' E 4D BBC svi HESv oHBPAGING, ExesGL_ FLAGS $20 BR IF NOT PAGING SYSTEM SPACE 
9 04 "EF «867C O4DF 86634 CLRO PROTECTION SETTING 
55 9 "FF p 45 635 MOVAL a4 esect Ie 3 ADD NESS SYSTEM HEADER 
AS 4EC 6 : CVTWL 46 PHDSW PSHLAST (AS) gh? ; INDEX TO LAST SECTION TABLE ENTRY 
52 C2 04F0 6 SUBL a#SECSE L Re ; ALLOCATED NEW SECTION TABLE ENTRY 
4A BO O4F3 6 8 MOVW SHosue F ores tta )  } UPDATE LAST ALLOCATED ENTRY 
FB8O CF BO O4F7 6 MOV 06+ : SET PAGED CODE SECTION INDEX 
20 a5 C¢ ar 640 ADDL  PHOSL PSTBASOFF(RS),RS ; BASE ADDRESS OF SECTION TABLE 
2 se 6 30 4 MOVAL &R R : ADDRESS OF FIRST SECTION TABLE ENTRY 
10 A2. 0C AB «iO s«0504 64¢ MOVL  BOO$L_SY$_VBN(R6).SECSL -VBN(R2)_; MAP THE ENTIRE SYSTEM IMAGE 
08 A2 D4 309 64 CLRL SECSL “VPXPFC(R2) STARTS AT SYS VIRTUAL PAGE 0 
0c A 1406 00 050C 644 MOVL a §_MAP(R6) ,SECSL WINDOW (RZ) SYSTEM WINDOW 
18 A201. «0s 0511S 645 MOVL et Tpke L LREFCNT(R (R2) : MAKE REFERENCE COUNT NON-ZERO 
55 BSB CF DE 515 646 MOVAL We Pop : SET SFT FOR PAGED CODE 
OCAO SiA 64 BSBW + AND RELEASE THE PAGES OCCUPIED 
bap 8 wo ; 
g215 $39 3 PLACE ALL PAGES CURRENTLY REMAINING IN PFNMAP ON THE FREE LIST 
051D 63¢ INI_FREEMEM: 
Se 00000000" EF dO 051D «65 MOVL  EXESG ADDRESS OF RPB 
50 sFFC "BE DO 0524 654 MOVL  #<<EX sti appob RO ; VPN OF RESTART ROUTINE 
50. 90000000'FF40 00 05 655 MOVL annGScL SPTBASE bTE For RESTART ROUT INE 
50 50 15 OO EF 05 696 EXTZV #PTESV_PFN,#PTESS P PEN ; XTRACT PFN 
04 A6 «6550. 09's 78 sO053B) 6S ASHL = #9 RO. APBSL RESTAR AT (RE) i SAVE PHYSICAL ADDRESS gf RESTART ROUTINE 
08 A6 «624 «(0530 )~=O 658 CLRL  RPBSL_CHKSUA(RO) ; INIT CHECKSUM ACCUMULATOR 
o¢ A604 340 659 CLRL RPBSt RSTATFLG(ROD ; ENABLE RESTAR 
50 O0000000°EF 9E& 0543 660 MOVAB  EXESRESTART,RO ; ADDRESS OF RESTART ROUT INE 
51 IF DO 054A 661 MOVL #*X1F, ; COUNT OF LONGWORDS IN CHECKSUM 
08 a6 80 ¢ 34D 66¢ 5$: ADDL CRO} e. ;RPBSL_CHKSUM(R6) ; ACCUMULATE CHECKSUM OF RESTART ROUTINE 
OOAC C6) «00C:SCtCéiB C0554 664 MFPR #PRS_SBR,RPBSL ~$BR (RG) ; SAVE SBR VALUE FOR RESTART 
N0B8 (6 OD OB 359 665 MFPR aPRS- “SLR,R pest SLR(R6) : SAVE SLR VALUE FOR RESTART 
0080 C6 «411 DB O55E 66 MFPR = #PRS. $°ScB8 C_SCBB(R6); AND SCR BASE ADD = 
OOA4 £6 D4 0563 66 CLRL RPBSC ISP(R6) "SUCCESSFUL POWERFAIL'’ FLAG 
54 486 1 9¢ 0567 668 ROTL =9>,RPBSQ_ PENMAPSA(RB) ¢ Og STARTING PFN OF 
50 00000000'EF p 56C 669 MOVL § MMGS$GL_MAXPFN7TRO étart w 1th HIGHEST PFN INCLUSIVE 
0. ,f4 f 57 670 ASHL . 12 RORI ; cet BITRA P PAGE NUMBER 
cO 0578 «671 ADDL ro FAR ST BITMAP PAGE TO MAP 
soncoorer SESH: BS SSE $FR os, BRS BERPLPRLEENSe vain auematee TMP Pes 
: 4 58E 06674 @SWPSGL_BA ; PK Pace “OF THE ARN BITMAP 
5 7 675 INVALID Bots : AND INVALIDATE THA TVA. 
55 50 0 EF 05 676 XTZ 60.41 RO,RS : BITMAP PAGE RELATIV EP 
06 6 Fi 596 4677 20$: BBC R5,(R75, 308 ; BRANCH IF THIS PFN IS NOT USABLE 
00000000° F 59A 678 JSB MMGSDALLOCPFN ; MAKE U USABLE PFN AVAILABLE E 
D 3A 679 30$: DECL R : NEXT PFN TO CHECK 
13 05a2 6 6 BEQL 508 ; PEN ZERO MAY NOT BE USED 
00000000' EF 6 1 05A4 ChPL) OR ghncset _MINPFN + DONE THEM ALL? 
9 3B 5 Biss 508 : BRANCH IF YES. 
FP et Fa 08RD 6B soBcea Racioe : OO OTHE NEXT BITHAP PAGES CU nae PAGE 
- , 288 685 : THIS DOES NOT FALL THROUGH 


, 
yo 


mRocesson pothn tp phe e phe 1 mie tS 9 90:15:18 yaxives Macro yos~0 Page  $ 


50 0000°CF 7D 


PAA 


v04-000 ze pageable system code “SEP=-1 SYS.SRCJINIT.MAR;1 
Q0000000'FF D4 Bs : 50$: CLL @SWPSGL_BALSPT : CLEAN UP THE MAP ENTRY 
89 ! INVALID R : AND THE TRANSLATION BUFFER 
BC : 
Be ay ; INITIALIZE SPT FOR PAGED DYNAMIC POOL 
2B¢ 36 INI_PAGDYN: 
54 00000000 EF 9 Ef Bf 9 EXTZV #VASV_VPN,#VASS_VPN MMGSEL PAGEDYN,R4 ; VPN OF PAGED POOL 
50 00000 seF wt? F 78 05¢ 94 ASHL. #-9,SGNSGL_PAGEDYN,RO ; OTHERWISE I nit IT AS NON-PAGED 
0 ci aCe 95 ADDL3 aR F NOT SAGING POOL 
O° EF Soft O'EF 00 05D 36 MOVL MMGS$GL PAGEDYN EXESGL AGED SET ADDRESS OF PAGED POOL 
one 00000 00 FF, 99" E 200 9 BBS S“#EXESV OLPGING xpos FLAGS . $08; BRANCH IF PAGING PAGED POOL 
0 000'FF D £ 38 10$: -MOVL QMAGSGL spiB Rese T ENTR 
09000000" FF 16 O5E 9 JSB MMG $ALLO PFA ; or THEW! SE GET A PEN 
F a SF 00 BBC #31,R0,20$ ; BRANCH IF GOT 
0 O5F 1 HALT + NO PAGES FOR POOL DISASTER! ! 
50 FFEOQOOOO 8F CA O5F8 0¢ 20$: BICL #*C<PTESM PEN> RO ; LEAVE ONLY PFN BIfs 
B0000000 BF C9 OSFF BISL3 #<PTESH VALI s PIESC ERKW ! PTESC KOWN>, 
00000000'FF44 50 605 4 Seat _SPTBASE R4]_ ; SET NEW PAGE TABLE ENTRY 
oBe6 30 060C 5 SBW Bt : SET THE RESIDENT 
p2 54 55 F2 O60F 06 AOBLSS : FOR EA Ent PAGE IN THE POOL 
19 11 0613 707 RB : 
Be 88 
0613 19 ; SET UP ADDRESS OF PAGED POOL AND INIT IT FOR PAGING IF ENABLED 
55 FAG? CF DE 0615 1 $0$:  MOVAL WePAG DYN, RS : ADDRESS OF PAGED POOL DESCRIPTORS 
65 54 DO O61A 71 MOVL : 1ST VPN OF PAGED POOL 
7E Q0000000'EF =F7 BF 78 061D 714 ASHL path Scns, PAGEDYN,-(SP): GET SIZE OF PAGED POOL IN PAGES 
04A5 54 8B 5 0626 715 ADDL CGPS eh »4TR5) : LAST + 1 OF PAGED POOL 
OB8F 30 0628 716 BSBW ise : SET SPT FOR PAGED POOL 
0 E v7 40$: : 
0 : 19 : INITIALIZE LOOKASIDE 1/0 PACKET POOL 
9 E 
00000000'EF 50 00 be MOVL RO, EXESGL_SPLITADR T LOOKASIDE LIST SPLIT ADDRESS 
00000000'EF 51 b9 06 A MOVL IOC$GL~IRPCNT T CURRENT COUNT OF IRPS 
2F 6130641 BEQL My LRP IP IF NONE 
14 «11 643 BRB OR MORE TRIPS THROUGH THE LOOP 
"FF 60 OE 064 130$: INSQUE (RO) @10C$GL_IRPB H INSERT 1/0 PACKET IN LOOKASIDE LIST 
08 A 9000 F 80 64 MOVW IRP$C OTENGTHS“XF>B<AC< <4xF>>, IRP$W_SIZE(RO) ; SIZE 
B00 OD0 BF iC 5 ADDL aclnesC- TLENGTH#+*XF>&<*C<*XF>>,RO ; ADVANCE To” Next 1/D PACKET 
£9 51 F4 «(065 140$: SOBGEQ ; 
52 50 09 00 Ef 65¢ EXT2V no: ’ ghd. R2 ; GET OFFSET IN PAGE 
F ; 66 BEQL F ALRE : IF ZERO, NO PARTIAL PACKET 
60 00000200 8F 52 C3 0663 SUBL3 Ay #512, (RO) : SAVE SIZE OF PARTIAL PACKET IN 
6B : FIRST LONGWORD OF 


; T 
MOVL RO, 1OCSGL_IRPREM : SAVE ADDRESS OF PARTIAL PACKET 
; INITIALIZE LARGE REQUEST PACKET LOOK ASIDE LIST 
INI_LRP: 


MOVL W*BOOSGL_LRPSIZE,R2 : 
MOVL  R2,10C$GC_LRPSIZE ; 


Q00000000°EF 50 00 


5 QOOO'CF oD 
QOO00000"EF 52 OD 


NNN NNN NNN EDDA AAA AOAO 


0 

1 INI_IRP: ; 

: MOVG © W*BOOSGL_SPLITADR.RO ; RO = BASE ADDRESS OF IAP LIST 

+ R1 = NO. OF IRP*’S TO INITIALIZE 

4 : SET LO 

5 ; SET CU 

$ ; i Sk I 

8 N 

9 

0 

4 
4 
ty 
42 


SOQOOOooooooooooo 


PAAOAAOAAO 


FROM SYSBOOT 
$12 


IN] 


nN 9 
INIT PROCESSOR INITIALIZATION 16-SEP-1984 AX/VMS Macro V04-00 Page 19 
v04-000 Inttlatice saevekia system code “SEP-1 1386 89:13 18 toys. SRCJINIT.MAR 3 (8) 
Q0000000'EF  O000'CF oD 7 743 MOVL w* nibest LRPMIN, JOCSGL_LRPMIN ; STORE LRP MINIMUM SIZE 
00000000’ EF 5 p a4 CHP ifs 1OCSGC_LRPMIN ; MAKE SURE MIN < SIZE 
00009000" EF 2 06 f 74g MOVL  R2,10C$GL_LRPMIN ; USE MIN = SIZE 
O0O'CF 7D 0697 747 10$:  MOVG  wW*BOOSGL_CRPSPLIT,RO ; RO = LRP LOOKASIDE LIST SPLIT ADR 
69C 148 + R1 = NO. OF LRP'S TO INITIALIZE 
Q0000000'EF 50 oD 69¢ 74 MOVL  R0,IOCS$GL_LRPSPLIT : SET LOOKASIDE LIST SPLIT ADDRESS 
00000000’ EF \ p As £30 HOVL Ri ,1ocseu_ LRPCNT : SAVE CURRENT LRP COUNT 
11 06AC 136 BRB 208 : s OR MORE TRIPS THROUGH LOOP 
00000000 "FF 0 AE 753 30$: INSQUE (RO), @10C$GL_LRPBL + INSERT 1/0 PACKET IN LOOKASIDE LIST 
08 A0 85 68 £34 MOVW Rg. 1RPSW_SIZECROD : SET SIZE 
5 C 9 755 ADDL R2.R : ADVANCE TO NEXT 1/0 PACKET 
ef 51 F4 06BC 136 40$: SOBGEQ R1.30$ ; 
51 50 09 OO EF O68 75 EXTZV #0,#9,R0,R1 : GET OFFSET IN PAGE 
OF 13 64 758 BEQL 50$ ; IF ZERO, NO PARTIAL PACKET 
60 00000200 8F i -< b6¢6 39 SUBL3 R1,#512, (RO) ; SAVE SIZE OF PARTIAL PACKET IN 
00000000'EF 50 00 Oece 761 MOVL RO, IOCS$GL_LRPREM SAVE ADDRESS OF PARTIAL PACKET 
te ee ; 
0605 764 : INITIALIZE SMALL REQUEST PACKET LOOK ASIDE LIST 
bens tee iNI_ SRP: 
52 O0000000°EF DO 0605 767 ~ MOVL SGNSGL_SRPSIZE,R2 ; SRP SIZE FROM SYSBOOT 
3 OF CO d6n¢ 768 ADDL H3,e + ROUND UP TO 16 BYTE BOUNDARY 
OQO0000000'EF 52 DO 06E2 770 MOVL  R2,{0C$GL_SRPSIZE ; STORE SRP SIZE 
00000900’ EF 90000000" EF DO 0669 771 MOVL § SGNSGL SRPHIN. 1OCSGL_ SRPAIN ke NOTE MEMORYALC MAY IGNORE THIS 
00000000’ EF 32 D1 O6F4 Ae: CPL Re 1OCSGL_SR PMIN ; MAKE SURE MIN < SIZE 
Q00000000'EF 52 DO O6FD 77% MOVL  R2,10C$GL_SRPMIN : USE MIN = SIZE 
50 OO000'CF D0 0704 775 10$:  ##MOVL wW*BOO$GL SRPSPLIT, RO : RO = SRP LOOKAS IDE 1st SPLIT ADR 
51 Q0000000'EF D0 0709 776 MOVL  SGNS$GL : R1 = NO. OF SRP'S TO INITIALIZE 
00000000'EF 50 DO 0710 777 MOVL RO 1OCSeL.. PSRPSPLIT : SET LOOKASIDE LIST SPLIT ADDRESS 
00000000’ EF 34 D0 ae 178 MOVL Ri, locseL- SRPCNT ; SAVE CURREN ENT ENT SRP COUNT 
OF 11 0720 780 BRB 40$ : 0 OR MORE TRIPS THROUGH LOOP 
00000000"F $0 OF 07 : 81 30S: INsaue (RO) 5a JOceet eSRnal : INSERT 1/0 PACKET IN LOOKASIDE LIST 
50 3¢ C0 07 D 788 ae ADDL OR ne:A0" i 3 ADVANCE TO NEXT I/O PACKET 
51 50 09 OO EF 39 785 — EXTZV.—s #0, #9, RO, R1 : GET OFFSET IN PAGE 
OF 13 138 7 6 BEQL 508 : IF ZERO, NO PARTIAL PACKET 
60 00000200 aF ey. 73a f SUBL3 R1,#512, (RO) : Save SfE" OF PARTIAL PACKET IN 
00000000'EF 50 00 748 f : ‘ey MOVL RO, IOCSGL_SRPREM ; SAVE ADDRESS OF PARTIAL PACKET 
749 791 ; F 
00000000° "EF 74 9 MOVL — LOCSGL_SRPSIZE, JOCSGL_IRPMIN ; SE! MIN SIZE 
— 6900000 EF p? re 38 INCL IOCS$GL7IRPMIN ; DON'T LEAVE A HOLE AFTER SRP SIZE 
58 OOO00G00'EF OD 75A 794 MOVL EXESGL “NONPAGED ,R11 3 Save, IPL for pool allocation. 
DB 0761 795 MFPR S*# : t it to 31 for allocations 
00000000" EF 26 196 EXESGL “NONPAGED = INIT execution. 
r6 198 : SET UP FILEREAD GLOBAL PARAMETERS PASSED FROM SYSBOOT 


Sz 


Saae 


sh AS 20sse0b6 eF 6 
8 AS 0000000'8F 00 


C 10 
INIT PROCESSOR INITIALIZATION 16-SEP-1984 00:14: AX/VMS Macro V04- Pp 1 INI 
v04-000 Miscellaneous Initialization oe t 90:15:16 SYS.SRCJIN 1T.MA mY _ 3) v04: 
if P ; -SBTTL Miscellaneous Initialization 
£28 ; Initialize the permanent local system block. 
55 00000000'9F E : MOVAL — @#SCS$GA_LOCALSB,R5_ :¢ th t k 
18 AS itd 00'9F D MOVa agsCs$GBe SYSTEMID ste en Pi cto cape 
SB B_SYSTEMID(RSS Set in the _s7stemid 
CLRW © S$B$B sysyeaeeechs) 


MOVL #*A/UMS /,5 


YPE (RS) Set opersting system name 
MOVL #SYSSK_VERSIONTSBST_SWVERS(RS) 


; Set operating system version 


: Set NODE_HWTYPE co based upon the CPUTYPE value. This code is modeled 
3; on the CPUDISP macro 


MOVZBL GEXESCB. CPUTYPE,RO ; Get CPU type and use 9s index 

SOBGTR : If GTR, then type 780 

BBC f 4 °C EXESGB. CPUDATA, 60$ : If bit clear then re a 785 
: Se 


t 
60$: MOVL HWTYPECROJ,SBST_HWTYPE (RS) e cP 


Just in 


50 sepa * 1 
02 00000000" GF 
34 AS = F9OA CF 


38 AS 00000000" 


GF 
50 
17 
50 8 
40 ; Store CPU type string in SB 
GF 
00000000'9F 08 €° 3A 

50 08 0 
50 
OF 
AS 
50 
AS 


MOvVa sere CPUDATA, SB$B_HWVERS(R5); Copy CPU data (hardware/ ucode 


00.000000090000 0000000000 


LOCC #8, aeSCS$GB_ NOBENAME ; Find the end of the name 
cs G7 SUBL3 RO. ; ; Calculate name size 
44 AS 90 MOVE = RO aM NODENAME (RS) : Insert size 
00000000' 7D MOVa Brexe Sco TODCBA s : Copy the Last boot time 
2c 7 SB$Q_SWINCARN : as the incarnation number 
OF 00  00000000'9F 2c MOVCS RO,a#SCS$GB_ NODENAME., #0,415, 


4 


uw 


0 
0 
0 
0 
0 
0 
0 
Q 
Q 
0 
0 
0 
0 


833 SBS$T_NODENAME+1(R5) ; Insert the name 


ere | 


D 10 
PROCESSOR INITIALIZATION 16-SEP-1986 00:14:12 VAX/VMS Macro v04-00 > 
COMneet Up Loodeble CPurdependent code ( Sasepaioee erases Pate eRcTtGre mansy age 98) 


-SBTTL Connect up loadable CPU-dependent code (SYSLOAxxx.EXE) 


a. pool space and read into it by SYSBOOT. The address of this 
oge 8 pessec in BOOSGL_ SYSLOA. Link the resident system vectors at 

EXE AL “16 AVEC. The joadsb\e file now has self-describing vector and 

offset information within 

The SYSLOAxxx.EXE image starts with a festande containing the load image 

size, a senguere of zero, a longword of standard pool geneee followed 

by a List of self describing entries. Each entry consists of a type byte 

and a longword self-relative offset to the loaded subroutine. 


int Tle 


One Se Se Ge Se Ge Se Se Se Se Sete 


ALID Clear temporary boot device mapping 
from translation buffe 
Address of SYSLOAxxx inage in pool 


Call initialization rout 


MOVL W*BOOSGL _SYSLOA,R4 


54 oes 8 
4 BSBB LINK_INIT_RTN 


SYSLOAxxx has already been connected 


; (ERAPATLOA.EXE) has been loaded into Boos (if necessary? by SYSB 
: The address of the code is passed in BOOSGL_ERAPATLOA. Link the system 
3 vectors (at EXESERAPAT “vee” to the loaded eh if the code was loaded. 


DDD DDD Pars Be Be BE EWI 


MEAN SO ODNAUE WN 0 OOBNAUE WN OOONOUM 


ERAPAT_LOADCODE : 
MOVL W*BOOSGL_ERAPATLOA,R2 ; Get address in pool of loaded code 
BEQL 10$ . It wasn't loaded 

6 MOVAL G*EXESERAPAT_VEC,R3 3 

FF aos BSBB LINK_INIT : 


Get address of vectors in SYS.EXE 


52 0000'CF 00 
9 
6 ; Connect vectors to loaded routines 


1 
53 O00000000'GF 0D 
m4 


Connect up loadable SMTACCESS code. The eee SMTACCESS cogs image 


(MTACCESS.EXE) one been loaded into pool (if n cosery: by SYSBOOT. 


f the code is passed in BOO$SGL UMTACCESS Link the system 


0 
: 
78 3; vectors (at CXESRTACCESS. VEC) to the loaded’ code if the code was loaded. 


The address 
75 MTACCESS_LOADCODE : 
AOVL 


52 0000'CF 
53 epteeeed 
B 


V W*BOOSGL_MTACCESSLOA,R2 ; Get address in pool of loaded code 
7 BEQL 10$ ; It wasn't loaded 
4 MOVAL 6 EXESATACCESS _VEC.R3 =; Get cen of vectors in SYS.EXE 
BSBB LINK_INIT ; Connect vectors to loaded routines 


_—Oo—O 
OmMmMWwo 
COOOCGOOCOCOCCOCOCOSOOCO COCO OCOCOCOOOOOOCOOOOOOOOO 


oo 
o 
o 


: Connect up loadable SERAPAT code. The loadable SERAPAT code ween. 


INIT PROCESSOR INITIALIZATION SEP=1984 00:14: AX/VMS Macr 2 0 P 3 
v04-000 Connect up loadable SCS code (SCSLOA.EXE a et §8:13:88 YeYS. SRCJINIT.MA MAR _ diy 


-SBTTL Connect up loadable SCS code (SCSLOA.EXE) 


The loadable SCS code image (SCSLOA.EXE) 1s now allocated non-paged 
~¥ soeee and Sooser_sc nto it ‘ SYSBOOT. The address of this code 


: gas* sed in CSLOA, ink the res igo .aes sys em vectors at 
: Ses AL_LOAVEC. The loadab . ile has self-describ 

: offset information w 

é 


<s 
F= 


ng vector and 


thin 
CS_LOADCODE: 
000° CF MOVL W*BOOSGL -UCODE .~ ; Transfer the address of any 
goue 000 * GF G*SCS$GL-MCADR 3; loaded microcode 
5 000'CF MOVL W*BOOSGL-SCSLOA,R2 ; Address of SCSLOA image in pool 
9 BEQL 10 3; Not loaded 
53 00000000'GF 5 MOVAL G*SCSSAL_LOAVEC,R3 ; Address of resident vectors. 
12 96 108 BSBB LINK_INIT : Connect vectors to loaded routines 


; Connect ne loadable cluster code. The loadable cluster code eens 
; (CLUSTRLOA.EXE) has been loaded into pool (if Be rareeere by SYSBOOT. 

; The address of the code is passed in BOO$SGL_CLSLOA. nk the system 
; vectors (at CLUSAL_LOAVEC) to the loaded Oy if the code was loaded. 


: This must be initialized AFTER the SCS loadable code. 
3; This must be initialized after and after the local sytstem block. 
¢ 


LU_LOADCODE : 

52 0000" cf MOVL 
53 00000000 GF 
02 


WrBOOSGL_CLSLOA,R2 


BEQL 
MOVAL G*CLUSAL_LOAVEC,R3 
BSBB_ ss LINK_INIT 


BRB END_LOA 


3 

; 

: 

’ 

g 

3 

$ LINK_INIT: 
8 MOVL 
: 

§ 

3 

; 

: 

0 


Get address in pool of loaded code 
It wasn't loaded 

Get address of vectors in SYS.EXE 
Connect vectors to loaded routines 


R2,R4 ; Save 
G*EXESLINK_VEC ; Connect vectors to loaded routines. 


4(R4) RO ; Possible initialization routine 
:; None, leave 
JSB (RO) CR4) : Call it 
BLBS 3; No errors 
BSBW NOPOOLERR ; Trouble! Not enou h memory 


#ee* FATAL ERROR 


INIT 
V 


56 


55 00000000' 


F 
a3 
3 


55 00000000' A 


00000000 * GF 


E 
51 F8DE gf 
00000000" EF 


87 00000000' GF 


00000000 ' GF 
87 
87 
87 


55 


56 
55 
51 
31 


ntti 


o-oo 0-927 Wo 
oosemun— —~Mmo 


SSOR INITIALIZATION 
alize real time SPT bit map 


COOOCOCOCOOSOOSOOOOOCOOCOOOOOSOOOOSOOOOOCOOOOCOoOO 


SP OOOO O0O0O0OO OW 0009 000009 SINISE NOAA OA MIU 


AX/VMS 
SYS.SR ay 


~3Ep=198¢ 09:43:59 ThIT.MARs] 
Initialize real time SPT bit map 


3 4: Allocate and initialize | bit ~ that describes the SPTs reserved 
;viaa SYSBOOT parameter for use by real time processes that issue 


» SBTTL 


; connect to interrupt requests. 
int _SPT: 


ue 

339 ; 

Be9 3 ; See if the number of real time SPTs requested by the system 

20) ; parameter is available in the SPT free List. 

ac * MOVL GEREOCL AT IRESPT RS ; Get number requested. 

44 BNEQ : If any, branch and proceed. 
B02 BRW END_INISPT 3 in system initialization. 

308 5$ ADOL3 Page 4.03 SPTFREL,R5,R6 ; Add to base of free SPTs. 

348 CMPL G*BOOSGL_SPTFREH § ; Are there enough left? 

94 BLEQ ; : Yes. Branch forward. 

950 MOVAB NOSPT,R1 3 No. Report error 

951 CLRL ; Specify console terminal 

828 JSB EXESOUTZSTRING ; Output error report. 

Sez HALT 3; And halt processor. 

B22 3 3; Calculate size of bit map control block needed and allocate it. 

939 ios: ASHL #-5,R5,R1 ; Calculate number of Longwords 
958 : needed for bit map. 

959 BITL #*X1F RS 3; Need to round up? 

960 BEQL 20$ ; No. Branch forward. 

961 INCL R1 : Yes. Add one more Longuord. 
308 208: ASHL #2,R1,R1 ; convert to byte coun 

96 ADDL PRMSK LENGTH,R1 : Ri = realtime bitmap block size. 
964 BSBW ALONONPAGED ; Allocate from nonpaged pool. 
965 ; ALONONPAGED halts on error. 
208 MOVL 5 pea ie idaal ; Save block address. 

+t MOVL 3; Get another copy of block address. 


969 ; Translate starting offset of starting SPT to the system virtual 
970 : address of the page table entry. Then initialize the control block. 


971 ; 
af8 ASSUME RBMSL STARTVPN EQ 0 
97 MOVL G*BOOSGL_SPTFREL,(R7)+ ; Store starting vi virtual Page 
974 : —_ er in contro 
th MOVL R6 gr e00sét SPTFREL Save new first ce oct 
id: ASSUME RBA L FREE COUNT EQ RBMSL; * STARTVPNe4 
97 MOVL Store number of SPTs. 
978 ASSUME nas SIZE EQ RBMSL_ FReEtOUNT 4 
97 MOVW (R7)+ ly size. 
9 y a+ bn aise TYPE re 7 parse. SIZE+ 2° 
G MOVW apy C_RBM, ( Store block type. 
? ¢. ASSUME REMSL “BITMAP. R * REMSB_ TybE+2 
984 : In the bit map section of the control block, set each bit that 
; 5 ; corresponds to a reserved SPT. 
$ CLRL RS : Starting bit number is zero. 
988 30$: CMPL #52,R5 ; More than a longword of bits to set? 


OC A2 


1 
20 56 FFFFFFFF 7 
se 26 
E9 
55 56 FFFFFFFF 8F 


PROCESSOR INITIALIZATION 


Initialize real time SPT bit map 


FO 


C 
C 
C 
C 
C 
C 
D 
D 


9 


NNO OWwW 


40$: INSV 


G 10 


SrSEP-1986 03: 


rh R6, #32 
ve BITMAP(R2) 
#32.R 


#-1,R6,R5,- 
RBMSL_B1TMAP(R2) 


714 
£42! 


; Set a longword worth of bits. 


AX/VMS Macro vos~90 


: SYS.SRCJINIT.MAR;1 
No. Do Last longword. 


; Move to next longword. 


oO 
; Decrement count 
oO 


Go alter more bits. 
Set remaining bits. 


y bits set. 


Page 25 
age 12) 


IN] 
v04: 


——_— - —— } 
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PROCESS R INITIALIZATION -SEP-1984 4 00: 14:12 YAX/VMS Macro vO4- 04-00 Page 3, IN] 


tialize Lock Manager Data Structures 5-SEP=-1984 03:42:52 ([SYS.SRCJINI v04 
4 ! -SBTTL Initialize Lock Manager Data Structures 
D7 1 ; ALLOCATE AND INITIALIZE THE LOCK D TABLE. THE RESOURCE HASH TABLE AND 
07 1 ; OCESS BITMAP. THE LOCK ID S INITIALIZED WITH EACH LONGWORD 
D7 1004 : CONTAINING THE INDEX OF The NEXT LONBYOR D. THE RESOURCE HASH TABLE 
dD? 1005 : IS IN ITIALIZED TO ZERO. THE PROCESS BITMAP DOES NOT HAVE TO BE 
4 ! $ ; INITIALIZED. 
d7 1 : INI_LCKIOTBL: 
51 00000000" EF 4 CS O87 1 MULLS #4, LCKSGL_IDTBLSIZ,R1 =; MULTIPLY NUMBER OF ENTRIES BY 4 
1 ( ¢ DF 1010 AD 2 RI > AND ALLOCATE THAT SIZE + 12 
09 E2 101 BSBW ALONONP AGED : BYTES OF PREF 
62 51 »D —5 101 MOVL R gre) : STORE SIZE ALLOCATE 
02 A2 8B —8 101 TSTW gch ) : IS IT BIGGER THAN 65K 
ox EB 1014 BNEQ $ > YES 
BA 1 ED 1015 MOVW  R1,8(R2) + NO, STORE SIZE IN size FIELD 
AA 7 Fl 1 1 5$ MOVE #DYNSC_LKID,10(R2) + STORE STRUCTURE TYP 
oc a2 9 F5 101 MOVAB 12(R2)7LCKSGL_IDTBL + STORE ADDRESS OF START OF TABLE 
, FD 1 18 ADDL @# 6. Re : POINT TO SECOND ENTRY IN TABLE 
sé 99 101 SUBL #16,R1 : COMPUTE NUMBER OF ENTRIES 
1 04 C6 0903 1020 DIVL #4,R1 : LESS ONE 
00 ‘EF 51 00 906 1021 MOVL R1,LCKSGL_MAXID : STORE MAX LOCK ID 
00000000" EF 1 dO 090D 1 2 MOVL #1 .LCKSGLINXTID : INITIALIZE NEXT ID TO 1 
3 é D0 0914 1 MOVL #g.R : SETUP TO INITIALIZE REST OF TABLE 
BO 0917 1004 10$:  MOVW R + (RBD4 : STORE INDEX OF NEXT ENTRY IN THIS ENTRY 
gi 80 91A 1025 MOVW #1.(R2)¢4 : STORE SEQUENCE NUMBER 
F6 1 F3 091D 1 6 AOBLEQ R1.R3,10$ : REPEAT FOR ALL ENTRIES EXCEPT THE LAST 
82 00010000 BF 00d 3 1 MOVL #°x10600, (R2)+ : STORE LAST ENTRY 
0928 1 § $ ALLOCATE RESOURCE HASH TABLE. THE NUMBER OF ENTRIES IN THE HASH TABLE 
928 1030 : MUST BE A TWO. SO THE ALLOCATED SIZE IS THE SMALLEST POWER OF 
; 1; TWO LARGER THAN THE SYSGEN PARAMETER. 
928 1 j int _RESHTBL: 
51 01 D0 0928 1034 MOVL  #1,R1 ; SMALLEST POSSIBLE HASH TABLE IS 1 ENTRY 
24 D4 0928 1035 CURL RG : R4 WILL BE POWER OF TWO ENTRIES 
00000000' EF 1 pI 3 : 6 10$: CHPL Ri ,LCKSGL_HTBLSIZ : 1s Ri >= SPECIFIED SIZE? 
51 09 C4 0936 1 : MULL #2,R1 : NO = MULTIPLY SIZE BY TWO 
4 06 0939 1 INCL = RG : INCREMENT POWER OF TwO 
FO. 11 3 : 40 BRB 108 : REPEAT 
51 04 C4 D1 : 20$: MULL 4#4,R1 : MULTIPLY # OF ENTRIES BY 4 
51 0c g 1 ADDL #12,R1 > ADD IN OVER HEAD 
08D4 1044 BSBW § ALONONPAGED : ALLOCATE MEMORY 
98 az 1 46 1045 MOV Ri R : STORE size OF STRUCTURE 
AA : 94A 1 5 MOVB #DYNSC_RSHT,10(R2) + STORE STRUCTUR 
‘EF «686OCA2 9 104 MOVAB 1 (R2 yeLERsEL rHASHTBL : STORE POINTER TO HASH TABLE 
"Ef 54 p 1 : MOVL LC creer BCCNT : STORE POWER OF TWO COUNT ot ENTRIES 
‘eF }8654~—(«W0 104 SUBB3 aie R4, CERSGB. HTBLSHFT : STORE IT AS A RIGHT SHIFT COUNT 
| 39 > NOTE: HASH TABLE INITIALIZED TO ZERO 
1 ¢ ALLOCATE PROCESS BITMAP. THIS BITMAP HAS ONE BIT FOR EVERY POSSIBLE 
: PROCESS IN THE SYSTEM. 
1055 Int _PRCBITMAP: 
51 00000000'EF  3¢ 1056 MOVZWL SGNSGW_MAXPRCCT.R1 : GET MAX. # OF PROCESSES IN SYSTEM 


I 10 
Solslat tes Gheh Ranoner fete Structures ss niet? 88: 13: 4 SYS  SRCIINT Wan; sities () 


51 08 C6 C 1057 DIVL 48 ,R1 : COMPUTE # OF BYTES NEEDED 
1 ¢ F 1 8 ADDL #18, R1 : ADD IN OVERHEAD PL us EXTRA BYTE 
1 : TO # WAND E TRUNCATION ERROR 
084s 39 72 1060 BSBW mens ce : ALLOC MEMORY 

8 a2 44 1061 MOV One H zE OF STRUCTURE 
OA 42 min 63 1 6¢ MOVW acSTHRE Pe PR MAP@B>+DYNSC init 10(R2) ; STORE STRUCTURE TYPE 
- 06 c3 106 SUBL3 i STORE Sf7E OF BITMAP PORTION ONLY 

00000600"E 1064 MOVAB 13 eKS). er A _PRCMAP —;: STORE POINTER TO BITMAP 


they - AX/VMS Macro yess Page 28 
vou- Initialize Process state "BrSEb=19b6 Ooiassss LerSveRcHINTT Mansy nis 
-000 nitia 


98C 1 -SBTTL Initialize Process State 
oar g : INIT PROCESS STATE 
98C 1069 ; 
98c¢ 1 ; T OF PROCESSES 
Bar ines INT LPSTATE: NSGW_MAXPRCCT,R1 ge ar Fon desten meaoee 
Scones RE : Net ay at 2 BYTES. FOR SEG "4 BYTES FOR PCB ADDR 
C £6 0998 1075 an FDINSC MEADLEN, Rt ALLOCATE. SPACE FOR SEQUENCE VECTOR 
eee A ee i cia Out pea 
eH iy ER aay oma. A ae wg 
63 8F 8 MOVL T COUNT OF PROCESSES 
000000 f ac oar } Rovate neveRi J ee SEQVEC : ET BASE OF SEQUENCE VECTOR 
oot: HE Haat RE BE SURIBE SESec mn: Ey Beh OR 
F OD 9BF 1084 : R SYSTEM PCB 
ae te 0 of BO O98 if ROVW RI PCBSL-P1D(RO) : COMPUTE MAXIMUM PIX VALUE 
2 : 
core OB Be Tt uae, wart Lolly ete 
wos A BE TBE aoe, Blt tr eat ie Py usar von 
Fo Ot tT Does 1092 118: ADDS” BL CROSSCHSGL_PIXWIDTH ; BIT ON’ SET MEANS, THAT PIX. 
OO0O00000"EF 50 O01 (C1 SEA 1038 es MOVAL SCHSGL MULL ECE, CRRIERTD : INIT VECTOR TO POINT TO MULL PROCESS 
F DE O9EA HSGC_SEavectr : 
= 00000000" FF i Pe O98 | 96 SOBGEQ Rt PT ; ESTABLISH POINTER TO GLOBAL FREE LIST 
r. 60 oF 1097 MOVL MMGSGL_GPTE,EXESGL_G : SET NULL £6 OF NUCL PCB 
coment ee bE Ba0d 1098 MOVAL  SCHSGL_NULLPCB, RG : Setup PROCESS. PHYPCB. AND STATE 
seed A BSBB je i GET ADDRESS OF SUAPPER PCB 
De OATS 4101 ROVAL = SCHSGL_SUPPCB, : SETUP PROCESS PHYPCB AND S 
54  00000000'EF oF Ay ii BSBB 368 ; CONTINUE WITH eT EAT PCB 
15 AIB 11 : BRB INI PWV #VASS _VPN pcasi ~PHYPCB(R4) ,RO i GET V YSICAL 
yy EF M23 1105S «ROVE SNRGSEL. SPTBASETROS-RO bePRASLATE TO ACTING CHYSIEM. cases 
06 "of 000" | D9 oA i 2 INSV = RO at VPN ABIES. PFN, cast. sila aly MD) FESS IDENTIFIER 
1B 850 M60 ae bO OAST 1108 Rov. =P és PIB(R4S RO BND SAVE"A Copt TO EXTENDED PROCESS ID 
51 ye2? BO OAS3 1108 JSB exes IPD. 10 EPID, es PROCESS 1D 
ayp0800 0 pO OAS 1110 MOVUL RYROT GET SET ADDRESS. IN PCB VECTOR 
1 i Me 112 ROW. Ra. sascusc. PCBVECCRO]  ¢ AND CHANGE STATE 10. EXECUTABLE 
00000009" +5649 cores 29 OAs 1118 JMP s SCHISCHS 
A 
A HES : INITIALIZE PROCESS HEADER VECTOR 
ADS W117 ; f SLOTS 
ABS HTB INPHV: oo. #\-SGNSGL_BALSETCT.RG —; GET COUNT OF SLO ALLOCATE 
Pawan oo en a aa $0 EADLEN,RI : ADD IN SIZE OF HEADER 
ae Be 6 AS 113 ADDL sn upneeS ; ALLOCATE BLOCK FOR 
o7es $0 age 1152 Bseu 


_ 
oo 


2 


- - l 
04- Initialize Process state "SrSEp=1986 08:42:58 USYS\SRcHINiT mans)” §=©—— "88° (FR, v0 


2 7¢ (OA 5 11 : CLRQ ss (R2)+ ; CLEAR OUT TRASH 
83 BO OA67 11 MOVW sR (Re)+ SE i. N SIZE 
3 8F BO OAdA 1125 MOVW ab NSC PHYVEC@B{DYNSC_ wit} (R2)+ : SET TYPE AND SUBTYPE 
009990096 iEF é p AGF 11 g MOVL GLP BAS SET PROCESS INDEX VECTOR 
0900 62 24 A7%6 11 MOVAW Rest aN prec R ECBAS AND REF ERENCE COUNT BASE 
FE A244 050000 f 8 are 1 g nov SGNSGW_MAXPRCCT+- ni SET SYSTEM PIX 
00000000'FF44 0400 f : ns 1 0 ae ROW #1024, aPHVSGL_REF CBASERA} ; SET SYSTEM REFERENCE COUNT 
D 19 OA95 11 é BLS 0$ t CHECK FOR DONE 
00000000'FF44 01 AE Ao? 11 MNEGW OT @PHVSGL_REFCBASCR4] : INIT REFC 
6244 2 ASE 1136 CLRW (REDERA : AND PIX 
EF 11 OAA2 1135 BRB 20 : AND AGAIN 
ANG i $ 30S: : 000 
ANG 1 8 : SETUP SWAPPER MAP 
AAS 1140 INI_SWAP: ; 
51 00000000" EF 02 78 OAAG 1141 ASHL  #2,SGNSGL_MAXWSCNT,R1 =: GET SIZE TO ALLOCATE 
1 10 CO OAAC 1148 ADDL  #4+DYNSC_RAEADLEN,R1 : ADD SPACE FOR STOPPER LONGWORD + HEAD 
0768 30 OAAF 114 BSBW the NONPAGED S ALLOCATE A BLOCK FOR SWAPPER MAP 
Be C OAB2 1144 CLRQ ss (R d+ ; CLEAR OUT TRASH 
1 BO OAB4 1145 MOVW : SET IN SIZE 
82 er AB? 1146 MOVW yy Laange. SWPMAP@B!DYNSC_INIT>,(R2)+ ; SET TYPE AND uSuBTvPe 
00000000'EF 52 DO OABC 114 MOVL R2,SWPSGL_MAP : SET ADDRESS OF SWAPPER 
OO000000"EF DE OAC 1148 MOVAL SCHS$GL_SWPPCB,R4 : GET ADDRESS OF SWAPPER PCB 
ove cs°’ $3 Bo Gace 1180 Rove RS PHIDSL peek tne) : SET GASE REGISTER 
18 00 00000000" EF FO ADS 1151 INSV _— SGNSGL SAAXWSCNT. #0,424,PHDSL TPOLRASTE CRS) : AND LENGTH REGISTER 
ADE 1152; 
GADE 1183 : ALLOCATE MODIFIED PAGE WRITER PAGE TABLE ENTRY ARRAY 
ADE 1154 ; AND PROCESS HEADER VECTOR INDEX ARRAY 
ADE 1122 inI_MPW: 
51 00000000'EF 3C OAD 1187 ~"“"MOVZWL = MPWSGW_MPWPFC,R1 ; MODIFIED PAGE WRITER PAG FAULT CLUSTER 
ee nS | Ent uleag © 
51 10 06 AEA 1160 MOVL #16,R1 : USE MINIMUM INSTEAD 
90000000" EF 31 B AED 1161 10$: MOoVW RI .APWSGW_MPUPFC : RESET PARAMETER Mita: 
° n Py 
oe ea ee es em ot tae 
51 Oc agai : ; 1165 MOVAW DYNSC HEADLEN(R4)CR1I,R1; 3 BYTES PER PACE TO ALLOCATE + HEADER 
0719 1166 BSBW NORPA PAGED : ALLOCATE T HE ST TOR AGE 
ra A 116 CLRQ + CLEAR OUT TRA 
82 1 80 C 1168 MOVW Res SET IN SIZE 
psrtdoo dee’ eB Bee LG ee bree rrypranvorne t= mT Ty ne 
00000000 ' EF Ef 3 Pf 18 1171 ADDL3 R2.R4,MPWSAW_PHVINDEX : ADR OF PROCESS HEADER VECTOR INDEX ARRAY 
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ALIZATION SEP=1984 AX/VMS Macro v04-00 Pa 
NITIALI ZATION "OS ee lobe Ooiadies Lens vee Hegre yoR-o oe 2, 
SUBTITLE MISCELLANEOUS INITIALIZATION 
DO SHORT PIECES OF MISCELLANEOUS SYSTEM INITIALIZATION 
int mise: 
? INITIALIZE THE GLOBAL PAGE FILE LIMIT 
MOVL  SGNSGL_GBLPAGFIL.MMGSGL_GBLPAGF IL 
: INITIALIZE PAGEFILE CONTROL BLOCK 0 FOR READ OF SHELL INTO SYSTEM WORKING SET 
: MOVL aeere oan Ce a leans - te* dd VBN 

MMGS$ 3 NUCLPFL+PFLSL_VBN R SHELL 
MOVL W*BOO gL BOOTCB. R Get B00 CONT RDS BLOCK ADDR 
MOVL p's 9 MA T 
MMGSGC NUCLPFL+PFCSL_W 


PORT SH ™ 
ADDW3 #1,SGNSGW_SWPFILES, tC eNscu hori ACTUAL tO NUMBER OF SWAP 


| 


—OOON CUEWROOODNAUE WO OONAOUEW ee 
s. 


QOO0D000'EF 00000000'EF 


00000000" EF 


: GIVE RPB A PFN DATA BSE 


: #9,#22 cess RPB,R GET VIRTUAL PAGE NUMBER 
w°CcPTESM PENS aRAGSGL SPTBASECRIJ.RO : GET P 


aMMGSGL_ SPTBAS cat, @PFNSAL_PTECRO] ; PTE BACK POINTER 
apr NSAWE REF CNT ; REF COUNT 

CORCTIVE aPFNSAB STATECRO] : STATE Is ACTIVE 
rH OPFRSABL TYPECRO : SYSTEM PAGE 


51 


00000000 *FF40 69090000" 4 
00000000 ' FF4 
00000000 'FF40 


0 
A 
B4 
4 
5 
5 
5 
5 
5 
5 
; 
7? 
8 
8 


PPOMNDND NNN S$ Mh OL MMMM ANNAN 


PROCESSOR 16-SEP-1984 00:14:1 AX/VMS Macro Vv04-00 Page 31 
PAGE AND R INITIALIZATION 5-SEP-1984 ger gid AR a RT ° (16) 


oz 


I 
SW 


» SUBTITLE PAGE AND SWAP FILE VECTOR INITIALIZATION 

: Functional Description: 

B The page file control block vector is initialized. This vector 

B contains a longword pointer for each page file or swap file recognized 
B by the system. Each vector element is initialized to point to a 

B dummy PFL allocated in SYS.EXE. As a new page file or swap file is 

; added to the system, a vector slot is loaded with its PFL address. 

; Input Parameters: 
0B SGNSGW_PAGFILCT Maximum number of paging files 
0B SGNSGW_SWPFILCT Maximum number of swapping files 


Implicit Input: 
none 

Output Parameters: 
None 

Implicit Output: 


An array of longwords is allocated from nonpaged pool to contain 
the page file control block vector. 


Completion Status: 


If allocation of the vector of longwords fails, the bootstrap 
operation is aborted. 


~O 0 0 09 C9 C0 C9 Cd Gd OD OD Cd Od Co Cd Gd Cd Gd OD C2 Cd Cd Cd OD OD Gd Gd CD C9. GD Cd C9. GD CD CD CO. CD CD CD00 0D 


FIM WWI DWLOM ODNLOM FVWUMMOAMAAAOAAOHAOAAAOHAAOAAOHOHOHOHAAOAAOOOOAAOOOOOO 


SSSSSSHSSOSSO SSO SSO SOO TOS SOS 


50 00000000‘ GF 3 ZWL G*SGNSGW_PAGFILCT,RO ; Zero extend page file count 
51 _00000000°GF C 1 MOVZWL G*SGNSGW_SWPFILCT,R1 3 _«e. and swap file count 
a... 3. 2 3 ADDL3 = RO,R1,R2 : Form their sum 
52 OD PUSH R 3 «ee and save this result 
S16CiS2!CUtCGSD 4 MULL #4,R2,R1 3; Make R1 a byte count 
51 10 C0 5 ADOL2 #PTRSK_LENGTH,R1 ; Add header overhead 
51 Bp § PUSHL Ri 3; Save requested size 
066E 0 4 BSBW ALONONPAGED ; Allocate the pointer block 
08 A of D 48 MOVL (SP)+,PTR$W_SIZE(R2) : Size is the requested size 
OA A 9 4 MOVE #DYNSC_PTR,PTRSB_TYPE(R2) ; Set structure type as PTR 
OB A 3.6C«@#ég 50 MOVB #DYNSC _PFL,PTRSB PTRTYPE (Re) 3 eee which locates PFLs 
bc A —E oD 51 MOVL (SP), PTRSL_PTRCNT(R2) ; Store size of PFL array 
53 00000 00" e DE 26 MOVAL  G*MMGSGL WoL LPF R 3; Set up contents of uninitialized slot 
51 10 A2 43 C 5 MOVAL PTRSL_PTRO(R2),R : Get address of first slot 
00000000'GF 51 OD C 54 MOVL R1,G*AMGSGL_PAGSWPVC =; Store this for exec routines 
9 8EDO C 55 POPL R : RO is loop counter 
81 0 D 2$ 10$: MOVL R3,(R1)+ : Initialize next slot 
FA 50 F5 OBD 5 SOBGTR RO,10$ : If not done, load next slot 


<_ 
<= 


N 10 
R INITIALIZATION 'S-SEP=]oB4 OSiasiss PENCVES SPEre yOs-00 Page 76; 


POINTER TO TOP OF INTERRUPT STACK AND COMPUTE MAXIMUM 
TH FOR LOCK MANAGER RESOURCE NAMES 


PROCESSOR I 
PAGE AND SW 


@ 

J 

—~ 
re 
oz 


50 0009900' F 3 ovzu SGNSGU JsPPccr, ,RO : GET # OF PAGES OF INTERRUPT STACK 
5 9 SHL. «#9, RO,R + CONVERT TO BY 
00000900 EF 20 ¢ SUBL3 RO EXESGL IN INTSTK,- + SUBTRACT FROM BASE OF STACK AND STORE 
50 Q0000000'EF C2 SUBL _ LCKSGL~ ~EXTRASTR, RO : SUBTRACT EXTRA STACK AMOUNT FROM 
: SIZE OF INTERRUPT STACK 
0 10 DIVL  #16,R0 ; ALLOW 16 BYTES FOR EACH LEVEL 
4 ; p cMPL RO 4 : MAKE SURE IT'S AT LEAST 4 
50 04 D0 MOVL #4,R : SET IT TO 4 
OOOOOOFF 8F 30 D1 10$ cMPL RO #255 ; MAKE SURE IT'S NO MORE THAN 255 
50  QOO000FF 8F Dd MOVL #255 RO : SET IT To 255 
00000000'EF 50 90 20$ MOVB RO, LCK$GB_MAXDEPTH : STORE IT 
; POINT SYSTEM PCB AT SYSTEM PHD AND SET PROPER PIX 
int _SYSPCB: 
54  00000000'EF E MOVAL MMGSAL_SYSPCB,R4 GET ADDRESS OF SYSTEM PCB 
6C A4 O00000000°EF 0D MOVL § MMGS$GL~SYSPHD,PCBSL sont ; AND SET IN SYSTEM PCB 
60 A4 00000000'EF MOVW § SGNSGWUMAXPRCCT,PCBSL_PID(R4) : SET SYSTEM PIX 


; tb 2 a PRODUCED A MAP FOR SYS.EXE AND LEFT IT IN THE BOOT CONTROL 


: OF BLGCK COUNT, 32 BITS OF LBN. SYSBOOT LEFT ENOUGH SPACE AT THE END 
: OF THE MAP TO MAKE A REAL WCB AND PUT IT RIGHT ON TOP OF THIS MAP. 
58 O000'CF D0 MOVL w*BOOSGL BOOTCB,R8 ; ADDRESS OF BOOT CONTROL BLOCK 
56 14 AB OD MOVL B00 L_SYS_MAP(RS) ,R6 ; ADDRESS OF MAP LEFT BY SYSBOOT 
57 FO 8F 7 ASHL ; RETRIEVAL POINTER COUNT IN MAP 
461 CF 57 BO MOVW a7 W*SYSWCB+WCBSW_NMAP ; SET COUN TIN TEMP LATE Wee 
04 A6 ODE MOVAL 4(R6),RO ; ADR OF 1ST 8 BYTE RTRV 
51 56 DO MOVL  R6,R ; ADR 14 3 ORE 1ST E. BYTE PRTRV PTR 
52 «57 ~=«o« MOVL  R7.R2 : NUMBER OF RETRIEVAL POINTERS 
: COLLAPSE THE 8 BYTE FORMAT INTO A 6 BYTE FORMAT. SINCE Svs. EXE ITSELF 
: IS NOT 65K BLOCKS BIG, NONE OF THESE RETRIEVAL POINTERS CAN HAVE A 


: NON-ZERO HIGH ORDER WORD. 
20$: CVTLW (RO) +, (R1)+ 


81 80 F7 ; MOVE THE BLOCK COUNT 
81 80 D0 MOVL  (RO)+.(R1)+ : AND THE STARTIN 
F752. s=O#F SOBGTR R2,20$ t LOOP THROUGH ALL RTRV PTRS 
57 06 C4 MULL ‘ ’R : NUMBER OF BYTES IN N NEW RTRV PTRS 
F438 CF A ADDW *W°SYSWCB+WCBSW_SIZE_ : FIX UP TEMPLATE WCB SIZE FIELD 
30 a6 66—is«*57 3 MOVC Ry (R6) ,WCBSC_LENGTH(R6) ; MOVE 6 BYTE RTRV PTRS DOW 
66 F426 CF 30 MOVC3 #wEBSC_LENGTH; Se vsucB: trays AND INSERT THE TEMPLATE WCB 


Compute the data that calibrates the time-wait loop, used by drivers 
: to wait, instead of reading the processor clock. 


POODOAAAOOAAAOAOAOAOAAAHAAAOAOHAHAAOOAAAAAOOOOOOCOKOOOBWWIAIAIOIOIVTOVTOwVoOwW 

PRE QAO A DP MT BE BBP EE EP WNIPINININPINININIPY) 9 FS SOOO TMM MMMMMOVVVTCS 

ANN NN 229 NF MWD WWW OM F NWN MMMM MMOM NNNNNOO NOU DW OMUIN Ofrom NNN 

cm ce em me ee em ee a ee ee a ee a ed ed ed ed ed dd dd ws —_ dd 3 3 2d od 3 
AAAI ILI ILI AIL IPI PIPYPIPUPIPIAPIPOPIPIPIPYPIPIPIPIPIPIPIPIPIPIPYPIMUPIPIPINPIPUNIPIPIPIPPINTIPINKIPY ss “WU 
tt = I IOODODOOOOOOOOWO OOOO OO 000000909 09 09 09 09 09 SINISE NNO AA AOAOAOOOOUM 


099-4 9-9 + 0 > + > 0-9 9-9-4 4-5 4 $9 0-4-4 5-9-9 9-6-5 9-9-6 6 9 9p 9g pe Pt pT EP 


OOO00000'EF 16 JSB EXESINI_TIMWAIT ; INITIALIZE DATA FOR TIMEWAIT LOOP 


<e 
) 
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INIT PROCESSOR INITIALIZATION 16-SEP-1984 00:14: AX/VMS M 4- 
v04-000 PAGE AND SWAP FILE VECTOR INITIALIZATION Sty fi 99:15:45 SYS. ERT T.M My arte saat i) 
(6D 1 1 : 
C6D 1317 ; INSERT ALL DRIVERS LINKED AS PART OF THE SYSTEM IMAGE IN THE DRIVER 
6D 1 18 ; PROLOGUE TABLE LIST SO THAT SUBSEQUENT SEVICE CONNECTIONS WILL BE ABLE 
c p 19 : TO FIND THEM. 
000'EF 0000000'EF E Oc 1321 ° INSQUE MBSDPT, 1OCSGL -PPTLIST : INSERT MAILBOX DRIVER ON DRIVER LIST 
00° EF 09 0000"EF OF tr 1 : INSQUE NLSDPT,iOCSGL-DPTLIST ; INSERT NULL DRIVER ON DRIVER ‘Om 
00000000' EF 0000000' EF E ¢ 3 3 INSQUE OPSDPT. IOCSGL"DPTLIST ; INSERT CONSOLE DRIVER ON DRIVER LIST 
; ; ! 5 : move logical name for SYSSDISK and SYSS$SYSDEVICE into non-paged pool 
CBE 1 5 INI_LOG: ; 
51 0074 8F $f ¢ 4 1 8 MOVZWL woes CRELNM_ITMLST,R1 ; get size to allocate 
: 0584 C93 (1 BSBW AL ONON PAGED : allocate it 
a FF 2 4 C96 1330 MOVL R2,@LNMSAL HASHTBL ; store addr temporarily (see swapinit) 
4 &35F 5s C90 1 ROVAB BOLS$GL_DISR_LOG,R ; get addr of block 
e po 
62 64 0074 BF : EA 1 i MOVC3 a _CRELNM_ITMLST, Ros, tho) te 
_. : : ; ; copy block to pool 
! $ ; make self relative pointer s*solute 
10 A6 56 CO OCAB 1 g ADDL R6,BDL_L_DISK_ EQ. PTR(R6) 
0406 56 CO OCAF 1 ADDL  R6,BDL“L“DISK R(R6) 
44 AG 36 CO OcB3 1340 ADDL  R6,BDL“L7SYSD- “£0 ~PIRCRS) 
38 a6 «2056S cB? 41 : ADDL  $R6,BDLL~SYSD"AT_PTR(RO) 
0cBB 1 rk : THE TERMINAL SERVICE 1S NOW ALLOCATED NON-PAGED POOL AND READ INTO IT 
OCBB 1344 ; BY SYSBOOT. THE ADDRESS IN POOL IS PASSED IN BOOSGL_TRMDRV. 
OcBB 1 49 : INITIALIZE THE TERMINAL DRIVER. 
OcBB 1 t3 INI_TTYDRV: ; 
OCBB so -ENABLE LSB 
a4 1350 INITIALIZE PARTS OF OPAO UCB THAT CAN ONLY BE DONE AFTER SYSBOOT HAS 
OcBB 31 : POSSIBLY CHANGED SYSGEN PARAMS 
54 Q0000000'GF 9E€ OC 1 3g ' MOVAB G*OPSDPT,R4 : R4 POINTS TO CONSOLE DPT 
55 00000000'GF 9E OCC2 1354 MOVAB G*OPASUCBO,RS : RS POINTS TO CONSOLE UCB 
00000000'GF 16 cC9 1 33 J5B8 G*1OCSINITORV ; INITIALIZE FIELDS THAT CAN'T BE DONE 
00 004 C5 O¢ ES OCCF 1 25 BBCC #TT$V_SCOPE,W*UCBS$L_TT pe cHARCRSS ibs’: ENSURE NOT SCOPE 
ooc8 cS = 02-Ss«CA «CCS 38 10$: BICL2 #TT2$A_AUT TOBAUD -W°UCBSC_TT_DECHAI(RS) ; ENSURE NOT AUTOBAUD 
5 0000" CF b9 CDA 135 MOVL UsBOOscl eT SRY *R2 ; ADDRESS OF TERMINAL SERVICE CODE 
0 "GF é DO OCDF 1360 MOVL G*TTY ot DPT ; STORE LOADED TERMINAL SERVICE DPT 
00000000'GF 6 OF CE6 1361 INSQUE Rese “1OC$GL_DPTL INSERT TERMINAL DRIVER ON LIST 
A2 1€ 91 OCED 1 6¢ CMPB) #D NSC “DPT. DPT$B_T PE(R2S ; REALLY A DPT? 
OF 12 CF1 1 6 BNEQ 50% ; NOPE, GO SAY SO 
08 AS) «Bl «OOCF3S) «(1364 CMPW © UCB$W_SIZE(R5),- ; CORRECT UCB SIZE IN CONSOLE UCB? 
OE A cFé 1 69 DpTSu_ UCBSIZE(R2) 
1€ OCF8 1 6 BGEQU : IF GEQU YES 
51 F47C cr 9 OCFA 136 MOVAB BADCONUCB,R1 : SET ALL EGAL OPAO: ERROR 
11 cr 68 BRB oUuTZ ; AND GO DIE 
51 F4C5 CF 9E OD01 1 29 50$: MOVAB BADTTYDRV,R1 : SET ILLEGAL FORMAT ERROR 
B 04 OD 6 1371 OUTZ: CLRL R11 ; ADDRESS CONSOLE 
00000000'EF 16 OD 1372 JSB8 EXESOUTZSTRING : OUTPUT IT 


en se 


C11 


INIT PROCESSO OR INITIALIZATION 16-SEP-1984 00:14: AX/VMS M v04-00 Pp 4 IN] 
04-000 PAGE AND SUAP FILE VECTOR INITIALIZATION Sasepo1on¢ = SYS. SRCJINIT-MAR:1 age 35, v04: 
fie, me 
p r f3 ; RELOCATE TTDRIVER CLASS VECTOR, SET ADDRESS OF OPAO DDT 
51 16 a2 3¢ OD f 1 58 70$:  MOVZWL DPT$W_VECTOR(R2),R1 ; OFFSET TO CLASS VECTOR DISPATCH TABLE 
51 2 CO O0D13 1 £8 ADDL2 RoR} + CALCULATE ADDRESS 
D Dig 7 MOVL R1,R : SAVE 
81 52 CO D191 ° 80$ ADDL2 R2,(R1)+ ; App IN DPT OFFSET | 
61 DS ODic 1 é TSTL = (RA) + END OF LIST ? 
F9 «12 Di ; BNEQ 80$ ; ERANCH IF NO. 
10 a3. DO «~OD20 «1385 MOVL = CLASS_DDT(R3),- 
0000000C "EF D231 : OPASGC DDB*DDBSL_DDT : STORE DDT IN CONSOLE DDB 
10 A3. DO «~OD2B 1 MOVL CLASS_BDT(R3),- 
make 008 ¢ m p B 8 al UCBSL DDT (RS) ; STORE DDT IN CONSOLE UCB 
D331 +H UCBSL_TT_CLASS(R5) ; STORE CLASS VECTOR ADDRESS 
63 00 OD 1391 MOVL CLASS_GETNXT(R3),= 
010¢ ¢5 p35 1 3¢ UCB$L~TT_GETNXT (RS) : STORE GET NEXT IN CONSOLE UCB 
04 a3 dO 4 8 139 MOVL CLASS _PUTNXT (RS) - 
0110 ¢ D3B 1394 UCBS$ UTNXT (RS) ; STORE PUT NEXT IN CONSOLE UCB 
eae “5 suit As 3¢ abe 95 WOVZuL DPTSH_V “VECTOR ORG 4),R1 : OFFSET TO CONSOLE PORT VECTOR DISPATCH TAB 
0048 1397 UCBS$L_TT_PORT(RS) : SET ADDRESS IN CONSOLE UCB 
0048 1398 .DISABLE LSB 


INIT PROCESSOR INITIALIZATION 16-SEP-1984 00:14: AX/VM 4- INI" 
v04-000 INIT THE BOOT DEVICE BrSEE 138s BSiLS:ES PENC RS Mace yOs~00 Page iB) | v04: 
D4 .SBTTL INIT THE BOOT DEVICE 


THE BOOTSTRAP DEVICE DRIVER'S ADDRESS IN POOL IS PASSED IN BOOSGL_DSKDRV. 

: FINISH ALLOCATING AND INITIALIZING THE DATA BASE TO DESCRIBE THE BOOT DEVICE, 
; AND ANY CLASS/PORT DRIVERS ASSOCIATED WITH IT. 

in1_sootpevic: F 


D4 
D4 
D4 
D4 
Da 
+ ; FIGURE OUT THE DEVICE NAME FROM THE ADAPTER. 
56 00000000'GF DO 0D4 : 
7E 01 : 
8 


NN SN 


BRB 10$ 
208: ADDL #16, SP 


De 11 


: g, 
: AND ADP ADDRESS 
SE 10 CO ; 


AND CONT INUE THROUGH ALL ADPS oC 
; CLEAN STA 


IF A BOOT DEVICE CONTROLLER LETTER WAS PASSED TO US IN AN INPUT REGISTER 
: TO VMB, USE THAT AS THE CONTROLLER LETTER. 


TSTB RPBSB_CTRLLTR(R6) WAS A CONTROLLER LETTER SPECIFIED? 
BEQ BRANCH IF NOT 
MOVZBL RPBSB_CTRLLTR(R6) ,RS 


D 1 MOVL GTEXESGL _RPB,R6 : ADDRESS OF RPB 
CE 0D4 1 MNEGL #1,-(SP)~ ; INIT ADAPTER COUNTS 
D ODS 1 PUSHL ($6) 3 ALLOW FOR 8 ADAPTERS 
7E 6€ 7D OD 1 mova = (SP) LLOW FOR 6 ADAPTERS 
54 FFFFFFFC'EF DE OD 1 MOVAL locséc. ADPLIST=ADPSL =LINK, ne TART athe ADAPTER LIST 
54 04 46 «DO OD 15 10S: MOVL ADPSL_CINK(R4),R4 16 SExt APTER 
1c O06 1 BEQL : BR Ha IF NONE. 
51 0F AS) «63C «(0D6 1 MOVZWL ADPS$W_ADPTYPE(R4),R1 ; + GET ADAPTER TYPE CODE 
6641 96 Op6 1 INCB = (SP) CR1 BUMP APPROPRIATE COUNT 
0B AS «66E41 Ss: 90s«OOD 1 MOVE (SP)CR1],ADP$B NUMBER (R45; SET ADAPTER NUMB 
20 a6 «420C AG «OBI. OCOD CMPW © ADPSW_TR(R4) ,RPBSL_BOOTR1 (R6) us THIS THE BOOT ADAPTER? 
or te Op BNEQ 10 : NO KEEP LOOKING 
55 oes) 9A OD MOVZBL CSP)CRII.R5 YES, SAVE THE COUNT 
57 D0 OD MOVL  R4,R 
OD 
0D 
0 
0 
0 


0108 Cé 
07 
55 0108 £6 9A 


A T THE CONTROLLER LETTER 
58 64 A6 BC 


GE 
te as A=1 (0 = UNSPECIFIED) 
22s: MOVZWL RPBSW_UNIT(R6) ,RB ; PICK UP UNIT NUMBER FROM BOOT 


FIRST CHECK FOR ANY PORT DRIVER. IF THERE IS ore ie — THE DDB AND UCB 


Sete Ge ee 


; FOR IT MUST BE ALLOCATED, SINCE THEY ARE NOT BUI 


MOVL f, SEGSL. PR TORY ADR = a OF BOOT PORT DRIVER 


ieee Teter nest rsd «Sy 1 pn age <o onpeelinatee St seca 2 paar SON! Tse RRR bf Re: L—4 


a ee ee ee ed ed ed ed ed dd ed dd dD 


PN NN ee 


4 MOVL > SAVE A 
4 BNE g3 : THERE is. 
9 4 BRW 0$ : THERE IS NO PORT DRIVER 
64 OE ODA1 1444 25% INSQUE DPTSL_FLINK(R4),- 
09000000 "GF DA 4 G*I1OCSGL_DPTLIST ; INSERT DRIVER IN LIST 
51 44 BF OAC 4 MOVZBL #DDB$K_LENGTH,R1 : GET SIZE OF DDB 
04 DAC 144 BSBW | ALONONPAGED : GRAB SOME 
5 D AF 144 MOVL R aR : TRANSFER 
08 A 80 DB 4 MOVW ‘DDBSW_SIZE(R3) : SET THE SIZE 
AAS 06 DB 5 MOVZBW SD iwee DOB, bDBSB_ TYPE(R3S ; TYPE 
51 0000900" GF DE ODBA 145 MOVAL Gl ocsty FVLIS R1 : Ick an SYSTEM DDB LIST POINTER 
1 DO ODC1 30$: MOVL SDBSL SPEAK CR ) Ror ; CHASE DOWN THE LIST 
3 13 ODC4 BEQL 40% : UNITL THE END 
51 D Dg MOVL  R2,R1 : TRANSFER POINTERS 
F611 oc 3 BRB 30$ : AND CONTINUE 


000000D4'9F 58 B80 R8,a#SYS$GL_BOOTUCB+ - ; STUFF THE MSCP UNIT NUMBER 
UCBSW_MSCPONIT : WHERE IT BELONGS 
CMPB 0s @BTDSKUDA,- 


RPBSB_DEVTYP(R6) 
8$ 


BEQL = 4 
EXTZV #MSCPS$V_EU_DESIG,- 
#MSCPSS~EU-DESIG.R8,R5 


laa FROM CI1/HSC/EMULA 
EXTRACT CONTROLLER DESIGNATOR 
FROM UNIT NUMBER 


1D 8613 


INIT PROCESSOR INITIALIZATION 16-SEP-1984 14: AX/VMS Macro V04- P 
v04=000 INIT THE BOOT DEVICE BrSEEio8e Hosadses Fars each tars Manet” aoe 3, 
61 53 dO ODCB 1457 408 MOVL R3,D00B$L_LINK(R1) ; LINK US IN 
DCE 1688 ; CLRL = ODBSL_LIAK(R3) > AND SET AS END 
De3e 30 QDCE 14 BSBW FIX _DRV_NAME 3; FIX UP THE NAMES 
00000097 1! DE 44 1999 MOVAL arstsSeh LOCALSB.~ ; SET IN THE SYSTEM BLOCK BACK LINK 
5 ge DDI 168 PUSH Rg a 3; SAVE POINTER TO DDB 
51 of AG DDB 14 MOVZWL DPTS$W_UCBSIZE(R4),R1 ; PICK UP SIZE OF UCB 
51 000000 F DDF 1464 ADDL2 #ORBSC_LENGTH,R1 ; ALLOCATE ORB ADJACENT TO THE UCB 
0431 DES 1465 BSBW A ONONPAGED 3; GET IT 
3 BED DE 1298 POPL R 3; RESTORE DDB 
4 ge DEC 146 PUSHR #*M<R1,R2,R3,R4,R5> 3; SAVE MOVC REGISTERS 
62 51 00 6€ g C DEE 1468 movcS #0,(SP5,#6,Rr1, (R2) ; CLEAR OUT BLOCK JUST ALLOCATED 
— BA ODF 146 POPR #*M<R1,R2,R3,R4,R5> : RESTORE MOVC REGISTERS 
51 _0E AG DF6 1470 MCVZWL DPT$W_UCBSIZE(R4),R1  : RESTORE ORIGINAL UCB SIZE 
04 A 2¢ D DFA 1471 MOVL Re -DDBSL UCB IR: ; SET POINTER 
28 A 2 D DF 1326 MOVL R3,UCB$L_DDB(R2) ; AND ANOTHER 
1C A2 : 1 C1 E02 147 ADOL3 =R1,R2,UCBSL_ORB(R2) ; SET ORB ADDRESS 
us 0 EO 147% MOVL R2.R10 : COPY ADDRESS 
8 C OEOA 1475 CLRO = (RB) + + STEP TO SIZE 
8 BO OECC 1676 MOVW R1,(R2)¢ ; SET SIZE 
8 18 98 pEOe 147 MOVZBW agrees UCB, (R2)+ ; SET TYPE 
8 5 dO if 1478 MOVL R2, (R2)+ 3; SET ASTQFL 
62 OC AA DO OE15 1479 MOVL  UCBSL_ASTQFL(R10),(R2) : SET ASTOBL 
4C AA DE 0OEF19 1480 MOVAL UCBSL_IOQFL(R10),=- 
4C AA pele 1481 UCBSL_IOQFL(R10) ; SET IOQFL 
4C AA ODE E1E Me { MOVAL UCBSL_IOQFL(R10),- 
50 AA OE } 1 UCBS$L_I0QBL (R10) ; AND IOQBL 
50 1C AA 00 3 1484 MOVL UCBSL_ORB(R10) ,RO ; GET THE ORB ADDRESS 
OA AO 49 8F 90 OE27 1485 MOVE #DYNSC_ORB,ORB$B_TYPE(ROS ; SET BLOCK TYPE 
08 AO 0058 8F B0 3 § 1486 MOVW #ORBSC “LENGTH URB$W_SIZE (RO) ; SET BLOCK SIZE 
MOV ORBSM_PROT_16,0RBS$B_FLAGS(RO) ; SOGW PROTECTION WORD 
AO 01 90 OE é 1487 B  #ORBS T_16,0RB$8 (RO) T 
Oe ? 135) ASSUME ORBSL_ACL_DESC EQ ORBSL_ACL_COUNT+4 
L L_ACL_COUN ; NO ACL AS Y 
28 AO 32067 BESS 133) CLRQ ORBS$L_ACL_COUNT (RO) O ACL AS YET 
3 9 1298 3; NOTE: The following code depends on several assumptions: 
E39 1494 ; 1) We will get here only if there are both a port and class driver 
0E39 1495; ¢} ALL UNIBUS port drivers have the same bootdriver (BTD$K_UDA) 
: L physical unit numbers on H s are less than ts. 
: 2 1038 ) "REAL" physical i b sc’ l h 12 Bi 
E39 1498 ; The boot device name is built up of three parts: 
E39 1499 ; 1) The device mnemonic (e.g. DU.DM) is extracted from the driver 
BE 9 1500 ; name for most devices, otherwise it is copied up from the boot 
E39 1 : driver thru SY . 
E39 1 : 2) The controller letter is the same as the port controller for 
—39 1503; all UNIBUS ports. For the HSC, it is always “A’’. For the 
E 3 13 ; ghulated isks, it is derived trom the unis number. 
3 5 | : e unit number is extracte rom the e 
E39 48 
40 1 
E40 1 
E42 1 
E4 1 
tg 1 
E48 1 
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00000000 ' GF 
00000000 ' GF 
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51 0000'CF 
15 A3 
epee) i" 
55 04 AS 


54 AS 58 
00000000’ GF a 


51. 0000' 
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LIZATION 16-SEP-19 
VICE geen 188 88 
BEQL 4gs 
DECL R 
EXTZV #MSCP$V_EU_SUBU,- 
#MSCP$S~EU-SUBU,R8 
CMPZV - #MSCPSVEU"CTYPE,- 
#MSCPSS_EU-CTYPE.R 
#NSCPSK-EMD_OLD 
BEQL 45 
EXTZV #MSCP$V_EU_NO,- 
#MSCP$S-EU-NO,R8,R1 
45$: MOVL R1,R8 
48S: TSTW § a#SYSS$GL_800TUCB+ - 
CBSW ORS CPUNI T 
BGEQ $ 


5 
: MOVL #*x12,R5 
; NOW FIX UP BOOT DISK DEVICE 
§0$:  MOVL  W*BOOSGL DSKDRV.R »R4 


LINK (R4) 
“I0CSGL “DPILIST | 
MOVAL G*SYSSGLE BOOTDDB,R3 


SBW FIX_D AME 
MOVW UBOOSCC. DEVNAME ,R1 
BEQL 558 
MOVW R1,DD8$T NAME +1 (R3) 
55$: MOVL CLUSGL_AC 


BLSS 6 
MOVAB Srpesxuce ht 
BRW OUT? 

60$: MOVvW HS ,UCBS$W_UNIT(RS) 
MOVL pong XE Sel. SYSUCB 
PUSHR 
MOVL U-BoOséL BOOTCB R1 
MOVL BOOSL SYS_MAP(R1) RO 
MOVL Matt OrGguce (Rd) 
MOVL Bost "CHECKSUMCRI), EXESGO_ 
JSB Ea Se001 CHK 
MOVL gone L CRECKSUM(R1) 
POPR 


MOVL RO cuc OCBSL _SVPN(R5) 


Tere rere re rere) 
= 
Ww 


R4 ==> DISK DRIVER 
R5 --> DISK CCLASS 
R6 --> RPB 


BBC mop isy SP, DPTS$B_ epee 


; NOW THE BOOT DISK DRIVER (AND ANY ASSOCIATED PORT 
¢ INTO THE DATA BASE. DDB'S AND UCB'S ARE PRESENT. 


--> DISK (CLASS) DRIVER DDB 
CLASS DPT 
DRIVER UCB 


13:18 cides: Macro ee Page 


SYS.SRCJINIT.MAR; 


NONE, 52° LEAVE AT ‘‘Dxa’’ 
BECAU 


; PICK “NP 5 $B1r UNIT NUMBER 
; IF CONTROLLER TYPE IS NOT OLD 


; THEN 

; PICK UP 8-BIT UNIT NUMBER 
; SET UNIT NUMBER 

; CHECK FOR SHADOWING 


; NOT SHADOWING 
; SHADOWING: MAKE CONTROLLER ‘DxS"’ 


ADR IN POOL OF BOOT DISK DRIVER 


INSERT DRIVER IN LIST 

ot «ye ADDRESS FOR BOOT DEVICE 

uP POSSIBLE BOOT DEVICE NAME 
NONE 


— 
nm” 


B 
UP UCB ADDRESS 
THAT PREBUILT IS LARGE 


ma OCMmMnoe 
OROD "DA 


E 

F IT IN DDB 

4 DEVICE ALLOCATION CLASS 
K 


» SET ERROR MESSAGE 


mmr Zaare 


Bx Ov.wuN—'0 


; SET PROPER UNIT NUMBER 
; SET etitiee SYSTEM DEVICE UCB 


Ss 
T CONTROL BLOCK ADDRESS 
OR SYS.EX . 
8 
Y SYSBOOT. 


T 

IVER REQUESTS . 

SLOT FOR UCB WINDOW 
PN IN UCB 


: A LL Oc 


INIT PROCESSOR INITIALIZATION 16-SEP-1 14: AX/VMS Macro V04- Page 
-000 INIT THE BOOT DEVICE g- ie 7 89:33: ig } YeYS. SRCJIN TT .MAR 3 . 8) 
EE2 1571; R7 ==> por OR EITHE L DISK OR A PORT 
EE2 1572; RJ ==> DRIVER DPT (IF PRESENT) 
43 ! oP 3 ; R10-=> PORT DIRVER UCB (IF PRESENT) 
43 } oi ; SPECIAL CODE FOR THE CONSOLE DEVICE 
Q0000000'9F 16 4 ! 7 +08 JSB a#INISCONSOLE 3; Off to SYSLOA code for routine 
EES 1 8 ; Check to see if we have been booted from a remote system (BOO$GQ_NODENAME 
EES 1580 ; will be non-blank). If so set up a system block for it, so that the 
4 ! 1 3; correct names can be generated. 
0180 4 BB OEES 1 4 PUSHR #*M<R4,R5,R7,RB> ; Save registers 
56 00000000" 9F DE EEC 1584 MOVAL 9f800 00868 B A NODENARE R6 =; Address of remote node name 
66 08 A OEFS 1585 LOCC “a/ /,#8 : Find the end of the name 
58 08 & EF? 15 § SUBL3 RO #8,R8 : Calculate name size 
1 EFB 15 BEQL 0 ; None, leave 
51 0060 8F $f Bere 1588 MOVZWL #SBSC Te 3; Get size of system block 
0315 0 Oe 1589 BSBw ALONORPAGED ; Allocate it 
57 52 00 OFOS 1590 MOVL R2,R 3; Copy to nonvolitle 
A7 51 BO OFO8 1591 MOVW R1, ’ SBSW SIZE(R Set in size field 
ag Ee lig Re ater ees ica 
OC A? 9E OFI2 1594 MOVAB SBSL_PBFL(R7),- 3; Init "eRe path block Listhead 
OC A7 OF15 1595 SBSC_PBFL(R75 
OC A7 9E Fi 1296 MOVAB SBSL_PBFL(R7),- 
10 A7 FIA 159 SB$C_PBBL(R75 
0000" CF 7D FIC 1598 MOVa W*BO03SGB_SYS ID,- 
18 A7 F20 1599 SBSB_SYSTEMID(R ; Set in eyetente 
1—E A7 B4 F g 1600 CLRW SB$B_SYSTEMID+6(R7) ; Just in 
53 st eh 9E F 1601 VAB hipee ag alee R3 ; Address + list head 
0% ca? 0 F 3 1608 INSQUE A ; Insert at tail 
38 90 OF30 160 MOVB ne rth NODENAME (R7) : Insert size 
OF 2C OF34 1604 MOVCS R8,‘R6)> 3; Insert the name 
"sooooad eA ‘OF 9E ; 4 100 MOVAB a3681 RODERARES|(R7) 
5 F41 1607 SBSL -P05~0D tl ene oR3 ; Cover the DDB List head 
50 6 yt) ree 1608 MOVL DDBSL-LINK(R ; RO --> Boot DDB 
54 A7 23 4 28 190) — Baa ateta. ; Insert it in the remote system block 
6 F468 1611 DD iat (R35 3; R1 --> Next DDB after boot DDB 
$9 D4 OF4C 1616 CLRL atts cH (#0) ; Show Boot DDB end of its List 
34 AO dO a 19h7 MOVL DDBS$L_SB(RO) ; Set back pointer to system block 
J 1815 ; Now fill in correct equivalence string for SYSSDISK 
56 DO OF 1819 bos: MOVL_ @LNMSAL_HASHTBL,R6 ; Stuff address of data block 
ye 1C ee C1 OF59 161 ADDL ,WBDL-L_DISK_EQV-1,R1 ; Point to equivalence name (at ‘'_"’) 
| } C1 OFSD 161 ADDL #1-R1,R7 3; Copy at real name 
DO OF61 16 0 move #15,R6 : Output Length 
AE DO OF64 16 MOVL ciS6) so : Recover R 
3c AS 200 8F C F 16 BISL #DEVS 3; Signal that system device uses the 
F 1 UCBSL MBE VCHARZ(RS) 3 node$ddcn device name format. 
f F70 1624 MNEGL @ ; et NODES device name 
3 F73 1625 JSB arlorscy onstruct the name 
oc a6 51 O1 A ah. 16 $ SUBW3 «#1, R ie - eOisk _EQ_ 52(RA) ; Update size 


H 11 
of Device SSEp=1986 09:43:58 ESYSYSRcTINGT Mans Pee ig 


$$0 ] 
THE ) 
rt ] ; Fill in correct equivalence string for SYSSSYSDEVICE 
53 a A 9 F 1 MOVAB BDL_L_SYSD_EQV(R6),R3 =; Point to equiv name string Spese re 
5 A } F 1 MOV BOL_W_DISK_EQ_S (R6),- |: Move size ( same as for SYS$DISK ) 
40 A F 1 § BOL Mag EQ SZ(R6) 
0 —E1 OF 1 BBC eee V-CONCEALED = ; Branch if not concealing dev name 
08 : FB9 «1634 G*EXESGL FLAGS 
100 8F CB OFBF 1635 BISL2 #LNMSM_CONCEALED,- 
F 5 1 $ @BDL : S¥Sp AT_PfR(R6) ; Mark concealed attribute 
63 67 28 «(OF 1 90$: MOVCS R1,(R7T, (R37 : Copy device spec 
180 8F BA fee 1 : POPR #°A<RG,RS,R7,RB> ; Restore registers 
F3t Ieee 3; CONNECT UP CRB/IDB 
FOF 1966 . ENABLE ise 
b8 93 (OFAL Jeea Beat 108 Ep Appa: 
7E & 7D FA3 1645 MOV R4,-(SP) ; YES, SAVE DSK DPT/UCB ADDRESS 
54 9 7D Se 1948 MOVQ RO,RS 3; TRANSFER PORT DPT/UCB ADDRESS 
24 AS 8 DO OFAD 1647 108: MOVL RB, UCBSL_CRB(RS) 3; CONNECT UCB TO CRB 
oc A FAD 1948 INCW CRASW_REFC(RB) 5 . COUNT OF CONNECTED UCB'S 
52 C ‘ ? ‘3? 1963 pete + eaten aneetaaned go GET ADDRESS OF IDB 
OC A2. 0 +4 FBG 1651 MOV #8, 1IDBSW pe ; This IDB good for upto 8 units. 
50 SGA C OFBA 165¢ MOVZWL UCBSW_UNTT(RS) JR : Get devie unit number. 
50 08 01 FBE 165 CMPL #8,R0 3 Will this unit fit in the 1087 
05 18 OFC] 1654 BLEGU 208 : Branch if unit will not fit. 
FCS 1655 3; Its a class driver disk and the 
FCS 16 § ; class driver doesn't use the IDB. 
18 A240 55 00 4: 192 MOVL R5,1IDBSL_UCBLST(R2)CRO] ; Else, plant UCB address in IDB. 
4: 1885 ; CONNECT DRIVER TO DEVICE DATA BASE AND PERFORM ANY NECESSARY RELOCATION. 
00000000 ' GF 1 FC 199) 20S: JSB G*IOCSINITDRV 3; CONNECT DRIVER TO DATA BASE 
28 § AS D FC 1 § MOVL UCBSL_DDB(R5) ,R6 ; GET DDB 
0088 C CA6 OD FD 166 MOVL te DDT (R6) ,UCBSL DDT(RS) ; SET DDT IN UCB 
64 AS 0800 8F 4s 1988 BISW #UCB A_VALID,UCBSwW_STS(R5) 3; MUST FORCE ON SOFTWARE VOLUME VALID 
4 1996 ; DITTO FOR CLASS DRIVER 
59 0 FD 1 o8 TSTL R9 3; ANY CLASS DRIVER? 
E 1 FE 1 BEQL 40$ ; NO, LEAV 
54 E 7D FE 1 MOVa (SP)+,R4 3 ves, TRANSFER TO CORRECT REGISTER 
002F 38 FE 167 BSBW ALLOC _ 3; GE 
24 AS 1) FE 167 VL R ure L_CRB(RS5) ; CONNECT UCB TO CRB 
OC A 68 FEC 167 INCW CRB W_REFC(R2) ; STEP COUNT OF CONNECTED UCB‘'S 
38 A2. 5 FEF 1674 MOVL R7, = ; FOR CLASS DRIVER, SAVE ADP POINTER IN 
FF3 1675 CRBSL_INTD+VECSL_ADP(R2):; VEC SO THAT UNIBUS MAPPING ROUTINES 
FF3S 167 3; _CAN WORK, 
D OFFS 167 PUSHL R2 3; Save gre address. 
51 FF 167 MOVZWL #IDBSK_LENGTH, R1 3; Set size to allocate. 
021t FFB 167 BSBW A AGED 3; Allocate space for an IDB. 
8 ag 33 FFB 1 9 MOV Ri, Naar SIZE(R2) 3; Set size of IDB. 
AA 9 FFF ! MOVB +21 eS : Set type of IDB. 
OC A 01 0 1903 1 MOV t BSW_UNITS(R2) 3; Set max units to one. 
62 "CF 8 1 1684 MOVAB w*600$GB_SYSTEMID, - ; Setup systemid address as CSR 
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PROCESSOR INITIALIZATION 16-SEP-1984 00:14: AX/VMS Macro Page 4 
INT TRE BOOT Device Breer bke boicaiss PARC VRS Macro yOe~ of 4; 
100C 1685 I BSL_CSR(R2) ; for the class Gr iver. 
29 SED BEDO 100C 1 § POPL a ; Restore CRB addre 
2c ad 1 1 MOVL : Store IDB aéirces #4 CRB. 
1 1 : CROSL INTD+VECSL_IDB(RO)* 
59 04 1013 1 CLRL eR ; CLEAR A FLAG 
81 11 30 BRB 208 + EBNNECT itis DRIVER 
! Vy ! 35 ; ALLOC_CRB = ALLOCATE AND PARTIALLY FILL A CRB BLOCK 
1017 1694 INISALLOC_CRB:: 
1 7 1695 ALLOC_CRB: 
51 0048 8F ; 1017 1 %6 MOVZWL #CRBSC_LENGTH,R1 : set size TO ALLOCATE 
1FB 101C 169 BSBW AL ONONPAGED ATTEMPT TO ALLOCATE IT 
08 a2 31 é 101F 1 98 MOVW SIZE (R2) SET STRUCTURE SIZE 
OA A 1 169 MOVB aD TNSe tre CRBSB_ somentie AND TYPE CODE 
62 DE 1 1 6 MOVAL CRBSL_QQFL(R2),-~ 
6 1029 17 CRBSL-WOFL (Re) ; BUILD WAIT QUEUE HEADER 
62 DE 102A 17 : MOVAL CRBSL-WOQFL(R2),- 
04 A - ¢ 17 ; sa CRBSL~WOBL (Re) ; FLINK AND BLINK 
10gF 1705 ; 
} : Ve $: 3 FIX DRV_NAME = FIX UP THE DRIVER/DEVICE NAMES IN DDB/DDT 
102F 17 : Ex X_DRV_NAME : 
50 20 a6 9A 102F 17 MOVZBL DPTST _NAME (R4) ,RO ; GET SIZE OF DRIVER NAME 
30 D6 1 3 1710 L : BUMP TO INCLUDE COUNT 
F £8 1 171 PUSHR pe M<RO,R1 «fe R3,R4,R5> ; SAVE MOVC REGISTERS 
20 Ad 50 1037 218 MOVC3 RO,DPT$T_NAME(R4) ,- 
24 A 1038 (171 pbB$T “DAVNARE (RSS : SET DRIVER NAME IN DDB 
3— 60S soBA 103D 1714 POPR #*M<ROTR1,R2,R3,R4,R25> : RESTORE MOVC REGISTERS 
52 143A 3 103F 1715 MOVAB D BST wane r$),R2 > GET ADDRESS OF DEVICE NAME 
82 0 1043 1716 MOVB ; COUNT FOR DDB NAME 
82 25 a3 BO 1046 171 MOVW DoBST Dayna +1(R3), (R2)+ ; ASSUME SAME AS START OF DRIVER 
62 41 &F 81 104A 718 ADDBS #°A/AT RS : ST CONTROLLER BASED ON ADAPTER COUNT 
1050 17 
105 7 2 ; RESTORE PROPER IPL FOR POOL ALLOCATION 
XESGL_NONPAGED ND OF INIT POOL ALLOCATION 
00000000'GF 5B 00 1050 17 ‘ os:  MOVL.—s«R11, G*EXESG E A IT 1! 
af 7 4 nO SABL E LSB 
37 4 $: : INIT DEVICE CONTROLLERS FOR DEVICES WITH RESIDENT DATABASES: 
1987 7 : int _DEVICE: : 
; Set ag for LL 
5c 601.—CCE.s«*1057 «i MNEGL #1,AP Set flag for INIT A 
00000000'GF 16 105A 1730 JSB G*EXESINIT_DEVICE 
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SSOR INITIALIZATION 16-SEP-1984 00:14: AX/VMS M 0 Page 41 INI 
LLANEOUS CLEAN uP gee 138 99:15:28 SYS. eRCIIN T.M Rast . (19) Pse 
7 j -SBTTL MISCELLANEOUS CLEAN UP 
1 1734 FINISH_UP: 
1 1735 JSB G*INISRDONL ; MAKE THE SYSTEM CODE READ ONLY 
1 1 $ JSB G-EXESINTPROCREG 3 INIT PROCESSOR REGISTERS | 
106¢ 17 JSB = G“MNGSAL ; GET _A MEMORY PAGE PSE 
1 17 : MOVL RO GUEXE ef POL AKHOLE ; SAVE PFN = THIS IS THE RABBIT HOLE PAGE 
9 123 DECL  G*PFNSGL_PHYPGCNT 3 DECREASE NUMBER OF PAGES AVAILABLE ing 
107F 1509 ; Allocate a PFN and a SPT entry for mount verification. Build a PTE to map Z$0 
107F 1246 ; the allocated PFN into system spa ce. Save the system virtual address of sot 
JO7E 1243 ; the PTE in the global Longword EXESGL_SVAPTE. he 
90000000" GF 16 107F 1745 JSB G*MMGSALLOCPFN ; Get a memory page. SAE 
O000000'GF D7 1085 1746 DECL G*PFNSGL_PHYPGCNT 3; Decrease number of pages available. 
D 10 174 PUSHL RO ; Save allocated PFN value. 
01DA 30 108D 1748 BSBW  ALOSPT : Get an SPTE. 
50 O0000000°FF40 0d 1990 1749 MOVAL @MMGS$GL_SPTBASECROJ, RO: Calculate the SVA of the SPTE. 
00000000'GF 50 00 109 1730 MOVL RO, G*ERESGL_SVAPTE : Save the SVA of the SPTE. 
60 15 00 BE FO HA 1738 INSV (SPDs Be Toa : Set PEN in allocated SPTE. Pha 
1004 1753; . Ini 
10A4 1337 ; ALLOCATE THE SYSTEM ERASE PATTERN BUFFER (EPB) AND THE PSUEDO Com 
10A4 1755 ; PAGE TABLE (PPT) T To MAP I THE EPB MUST BE PAGE ALIGNED. BOTH Pas 
10A4 1796 ; PAGES ARE USED BY THE ERAS — Q10 FDT ROUTINE TO SPEED UP THE (FREQUENT) Sym 
19M 1030 ; PROCESSING OF AN ERASE PATTERN OF 0 WRITTEN ON UP TO 127 BLOCKS. ces 
22 10 10A4 1759 ° BSBBSs«d10008 : GET A PAGE OF MEMORY FOR SYSTEM EPB Pse 
00000000' GF 0 pO 10A6 1760 MOVL R0O,G*EXESGL_ERASEPB 3 SAVE ADDRESS OF SYSTEM EPB Cro 
a1 Pe lOar 1pe2 crate 5 SRT PATTERN = 
3 10 ey 1788 BSBB 000$ ; PROPAGATE PATTERN TROUGH PAGE The 
1 10 1083 1764 BSBB 000$ ; GET A PAGE OF MEMORY FOR SYSTEM PPT 210 
00000000'GF 50 v0 1085 1765 MOVL RO G*EXESGL_ERASEPPT 3 SAVE ADDRESS OF SYSTEM The 
51 96 dO 10BC 176 MOVL (SP)+,R : GET PTE THAT MAPS SYSTEM. EPB 204) 
51 04 18 OF FO 10BF 176 INSV oPRTSC. _UR, #PTESV_PROT, - 62 | 
104 1768 #PTESS PROT, R1 : SET PPT PAGE PROTECTION TO UR 
9 10 10C4 176 BSBB 20008 ~ : PROPAGATE PTE THROUGH PPT 
ee i 1770 BRB o$ : REJOIN NORMAL LODE UBATH 
10C8 1772; 
10¢ 1558 3 ; LOCAL SUBROUTINE TO GET A PAGE (ALIGNED) OF MEMORY AND AN SPT Mac 
10C8 177% ; TO M AP IT. NO INPUT. UTPUT: o-- 
10C8 1775; = SYSTEM VIRTUAL ADDRESS (SVA) OF THE PAGE -$3 
1 ¢ 1776 : Ri = SYSTEM VIRTUAL ADDRESS OF THE PTE (SVAPTE) THAT MAPS THE PAGE a 
00000000'GF 16 10C8 1778 10008: JsB G*MMGSALLOCPFN ; GET AND MAP A PAGE OF MEMORY 
0 oD 10CE i177 PUSHL : SAVE TH 370 
0 "GF 5 1 56 17 0 DECL § G*PFNSGL_PHYPGCNT ; DECREMENT # OF FLUID PAGES 
191 0 1 6 17 BSBW ALOSPT ; GET AN TO PFN TO A VA The 
51 "FF4O DE 1009 17 : MOVAL a@MMGSGL SPTBASECROJ, R1_ ; CALCULATE THE SVA OF THE SPTE 
ee ee ee ie RD. AD PEN (RT) OREATE THE SVA-OF THE PAGE gon 
00 50.—=Ss«‘1F F 10EA 1785 BBSS  #VASVISYSTEM.RO,1010$ SET HIGH BIT TO INDICATE SO ADDRESS 
10EE 17 : 1010$: RSB 
10EF 17 
10EF 1788; 
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INIT PROCESSOR INITIALIZATION 16-SEP-1984 00:14: AX/VMS Macro v04-00 Page 4 eof 
v04=000 MISCELLANEOUS CLEAN uP met 7 90:15:28 OY ERCTINIT Mansy . (18) 
10EF 1789 ; LOCAL SUBROUTINE TO PROPAGATE A LONGWORD THROUGH A PAGE. 
1OEF 17 y 3 RO = ADORE 
| cF i ; Ri = LONGWORD PATTERN 
2 OD 10EF 1793 2000S: PUSHL R : SAVE R2 
52 00000080 F dO 10F1 1794 MOVL Rte R2 : SET LOOP COUNTER 
0 51 DO 10F8 1795 2010$: MOVL  R1,(RO)+ : PUT PATTERN IN NEXT LONGWORD 
FA 52 «FS sO10FB 1796 OBGTR R2,2010$ : BRANCH IF MORE 
52. BE 0 1 FE 179 OVL (SP)+,R2 : RESTORE R2 
H 1539 2 
50 00000000'EF 3c 11 3 1 50$:  MOVZWL SGNSGW_SYSDWSCT,RO : SYSTEM WORKING SET COUNT 
50 89000b00°EF 0 ¢ 11 1 a} sUBL$ RO SCHSEL FREECNT,RO : SET AVAILABLE PAGE COUNT 
00000000'EF 50 O0000000°8F ¢i 1111 #1 : ADDL3 = #<<MMGSA_SYS_END-MMGSAL_PGDCODEN>@-9>, RO, - 
111D 1 0 PENSGL PRYPGCNT : ADD INIT PAGES ALSO 
0000000'GF 00 1130 1804 MOVL  G*SGNSGL_FREELIM,- 
990000 "GF 11 1 05 G“SCHSGL-FREELIM ; SET WORKING VALUE OF FREE LIMIT 
00000000'GF c3 1128 1 6 SUBL3 G*SCHSGL~FREELIM,- 
50 00000000" GF 112— 180 G*PFNSGL-PHYPGCNT,RO |; COMPUTE MAX WS SIZE 
51 00000000 "EF 3 1 4 08 MOVZWL MPwsGu_LOLIM.R1 + SUBTRACT OUT FROM TOTAL 
50 90000000" EF ks 1 : 1810 SUBL § SCH$GL_FREELIM,RO : MINUS 2*FREELIM 
00000000' EF : bi 1145 1 CHPL RO, SGNSGL_MAXWSCNT : CHECK MAX WS COUNT FOR PHYS MEM 
00000000'EF 50 00 1146 13 pie OVL RO, SGNSGL_MAXWSCNT + OTHERWISE LIMIT WS SIZE TO AVAILABLE MEM 
7E 99000000 EF 9A 1155 1815 MOVZBL SWP$GB_SHLP1PT,-(SP) : GET MANDATORY PAGE TABLES FOR SHELL 
51 O0000000°EF  3¢ 1136 1816 MOVZWL SGNSGW"MINWSCNT,R1 : GET MINIMUM FLUID WORKING SET 
51 00000000'EF CO 1163 1817 ADDL  SGNSGL~PHDPAGCT.R1 : ADD FIXED PROCESS HEADER 
51 8E& CO 116A 1818 ADDL (SP)+,R1 : ADD NECESSARY PAGE TABLES 
51 gi CO 116D 1819 ADDL  § S*#SWPSC_KSTACK+1,R1 : ADD SPACE FOR KERNEL STACK AND POINTERS 
51 50 D1 1170 1820 CMPL = RO, R1 : MIN WORKING SET MUST BE LESS THAN 
0& 18 1173 1821 BGEQ + AVAILABLE PHYSICAL MEMORY 
51 €F93 CF 9E 1175 1 Q MOVAB W*°NOPHYSMEM,R? : SET ADDRESS OF MESSAGE 
5B 204 «117A~«*d1 CLRL : USE CONSOLE TERMINAL 
QO0000000'EF 16 117C 1824 JSB EXESOUTZSTRING : GIVE ERROR 
00 i 5 ! 5 70$ HALT 3 seen FATAL ERROR **e28 
52 D4 11 1 § CLRL = R2 t SIGNAL NO RETURN DATA EXPECTED 
50 03 pO 1185 1828 MOVL § #CONSC_CLRWARM,RO : SIGNAL CLEAR WARMSTART INHIBIT FLAG 
00000000'GF 16 1188 1829 JSB G“CONSSENDCONSCMD : CLEAR FLAG IN CONSOLE 
D4 11 1830 CLRL oR : SIGNAL NO RETURN DATA EXPECTED 
50 04 dO 11 1831 MOVL #CONSC_CLRCOLD,RO : SIGNAL CLEAR COLD START INHIBIT FLAG 
00000000'GF 16 119 : JSB G*CONSSENDCONSCMD : CLEAR FLAG IN CONSOLE 
1199 1834 : MOVE A PIECE OF INIT INTO THE UNUSED POOL AND JUMP TO IT. 
1199 5; THIS SEGMENT OF CODE WILL RELEASE THE INIT PAGES TO THE FREELIST. 
56 00000004'EF DO 1199 1 § MOVL §EXESGL_NONPAGED+4,R6 =; GET ADDRESS OF FREE BLOCK 
26 8 ¢0 1140 1 é ADDL. ¥8,R6 : SKIP HEADER 
66 11B0'CF  0045'8F 11A3 1 MOVC3 #INI_EXITSIZ,W*INI_EXITCODE, (R6) : COPY CODE TO POOL 
7E DC 11AB 1840 MOVPSL -(SPY ; BUILD PC PCL PAIR 
56 OD 11AD 1841 PUSHL R6 : SET NEW PC 
2 11Ar 4¢ RE! t TRANSFER TO CODE IN POOL 
1180 1844 INI_EXITCODE: : START OF EXIT CODE TO DESTROY- INIT 
55 QOO011E9"EF DE 1180 1845 MOVAL FREE,RS : SET ADDRESS OF FREE MEMORY DESCRIPTOR 
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242:5 SYS. BRCM T.M (20) 


118D 1 ; 
} p i) ; FILL THE SPT AND RELEASE PREVIOUSLY MAPPED PAGES IF ANY 
118D 1 4 + INPUT: 
11BD 1855 : 
11BD 1 26 ; RS = DESCRIPTOR oF RANGE OF PAGES AND NEW PTE 
11BD 1857 : O(RS) = 1ST VIRTUAL PAGE NUMB 
11BD 1 28 ; 4(R5) = LAST + 1 VIRTUAL PAGE NUMBER 
118D 1 ; 8(R5) = NEW PAGE TABLE ENTRY TO STORE 
11BD 1860 ;: 
11BD 1861 ; OUTPUT: 
11BD 1 6¢ ; 
11BD 1 3 R4 ALTERED 
11BD 1864 : 
11BD 1865 
118D 1 66 FILLSPT: 
54 65 DO 11BD 186 MOVL 
00000000'9F DD 11C0 1868 PUSH arnnésce SPTBASE ET BASE ADDRESS OF SPT 
50 00 BE44  FFEOOO00 8F cB 11C6 1869 20$: = BICL C<PTESA ~PEN>, A(SP)CR4I, R j PFN FROM SPT ENTRY IF ANY 
06 13 1100 1870 BEQL 40s : BRANCH IF NONE THERE 
00000000'9F 16 11D2 1871 JSB aFMMGSDALLO PEN ; OTHERWISE DEALLOCATE IT 
00 BEGG 08 AS DO 11D 1878 40$:  MOVL 8(R5),a(SP)CR4] : SET NEW SPT ENT 
E354 O45 F2 1108 187 AOBLSS 4(R5) Ra Os : REPEAT FOR EACH ROAGE IN THE RANGE 
11E 1874 INVALID ; INVALIDATE THE TRANSLATION BUFFER 
BE DS 1166 1875 TSTL.  (SP)+ : CLEAN STACK 
05 V1e8 ! zg ; AND RETURN 
FFCOQO000' 1169 1878 FREE: .LONG <INI_BASE-*x80000000>a-9 ; START OF INIT 
FFCOOO00" 11ED 1879 -LONG <MMGSA_SYS_END-*xX80000000>a-9 z END OF INIT 
99000000 11F1 1880 LONG O ACCESS PTE 
0000004 11F) 18 1 INI_EXITSIZ=.-INI_EXITCODE : SIZE J EXIT CODE 
1165 is ¢ i : SET THE PFN IN RO RESIDENT 
1175 1884 : 
116 1885 ; INPUT: 
11F5 #1 § 3 
1165 18 ; RO = PFN 
11F5 1888 ; 
11F5 1889 : OUTPUT: 
11F5 1890 : 
1175 1891 ;: NONE 
1163 1 3 : 
11F5 189 
11F 1894 SETRESIDENT: 
00000000'FF40 86 11F5 1895 INCW § @PFNSAW_REFCNTCRO] COUNT ONE REFERENCE 
00000000' FF 40 9000000" FF 49 p 11FC 1 %6 MOVAL a@MMGS$GL “SPTBASECRO] aPENbAL RON BACK able POINTER 
00000000' 6 0 1209 189 MOVB &#PFNSC_ACTIVE,@PFNSAB_STATECRO) ; PAGE IS ACTIVE 
00000000'FF4 1 30 1 1898 nove #PENSC™ ~S¥STER + SPENSAB™ PPE RO] ; SVeTEM Saee 
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PROCESSOR INITIALIZATION 16-SEP-1984 AX/VMS M @ VO4~ 0 Page 45 
v04-000 NONPAGED POOL ALLOCATION SUBROUTINES -SEP=1 1382 88: 13: 4g Heys. ERT TT.MAR 9 37) 
VA 19 1 ; .SBTTL NONPAGED POOL ALLOCATION SUBROUTINES 
121A 19 5 ; ALONONPAGED CALLS EXESALONONPAGED 19 ALLOCATE NON-PAGED POOL. IF POOL 
121A 1904 : SPACE IS NOT SUFFICIENT TO CONTAIN THE REQUEST rATAL ERROR MESSAGE IS 
121A 1905 : GIVEN AND EXECUTION HALTS. THE PC ON THE TOP OF STACK WILL GIVE FURTHER 
1A 1306 : CONTEXT ABOUT THE ERROR. THE ALLOCATED BLOCK WILL BE ZEROED. 
121A 1908 + INPUT: 
1A 130 ; R1 = SIZE OF REQUESTED BLOCK IN BYTES 
121A 1943 : OUTPUTS: 
121A 1916 : RO = SUCCESS/FAILURE INDICATION 
121A 1913 : R1 = ALLOCATED SIZE OF BLOCK 
121A 1914 ; R2 = ADDRESS OF BLOCK 
121A 1915 
121A 1916 iNISALONONPAGED: : : 
121A 1917 ALONONPAGED: ; 
51 DD 121A 1918 PUSHL R11 > SAVE DESIRED ALLOCATION QUANTITY 
00000000" EF 16 121C 1919 JSB EXESALONONPAGED + ATTEMPT TO ALLOC 
2A 50 Es 1 1920 BLBS  R0,10$ : CONTINUE IF ALLOCATED 
51 Q0000000'EF 7D 1 1921 MOVQ FIL$GQ_CACHE,R1 + DEALLOCATE FILSOPENFILE CACHE 
1E 13 122C 19 : BEQL 6=sS$ : BRANCH IF ALREADY GONE, FATAL 
Q00000000'EF 7C 1226 19 CLRO FILSGO_ CACHE + SAY IT IS GONE 
50 3¢ DO 1234 1924 MOVL Re -RO + ADDRESS TO RO, SIZE IN R1 
53 DD SO1237 =«1925 PUSHL R + SAVE THIS FROM DEALLOCATE 
53 00000004'EF D0 1239 1926 MOVL  EXESGL_NONPAGED+4,R3 =; ADDRESS OF FREE NON-PAGED POOL 
00000000'EF 16 1240 1927 JSB EXE SDE ALLOCATE ; DEALLOCATE THE PIECE 
08 BA 1246 1928 POPR ER 
02 BA 1see 1929 POPR #*M<R1> : 
CE 11 126A 1930 BRB ALONONPAGED ; AND TRY ALL OVER AGAIN 
OF 10 124C 1931 5$ BSBB §- NOPOOLERR ; GIVE ERROR MESSAGE 
00 124E 1336 HALT : eeaee FATAL ERROR *ee8 
SE 04 CO 124F 1933 10$: ADDL 4#4,S ; CLEAN OFF SAVED ALLOC SIZE 
3F 6B 1¢5¢ 1934 PUSHR ‘ “acho R1,R2,R3,R4,R5> i; SAVE move REGISTERS 
62 51 00 62 00 2¢ 1254 1935 MOVCS RBS #6,R1, (Re) ; ZERO FILL BLOCK 
3F BA 125A 1936 POPR oh 0,R1 RELRS Re RS : RESTORE hove REGISTERS 
as se ae 
1290 1938 : NOPOOLERR - SEND ERROR MESSAGE FOR INSUFFICIENT NON-PAGED POOL 
125D 1941 NOPOOLERR: : 
5B D4 «1250 1948 CLR R11 ; INDICATE CONSOLE TERMINAL 
51 _EE7D CF 9 125F 194 MOVAB NOSPAC ; SET A DDRESS OF ERROR MESSAGE 
QO000000"EF 17 1264 1944 JMP Mee sOUT Se TRING : AND OUTPUT IT 


RECOVER SAVED R3 
pa ee QUANTITY 
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PROCESSOR INITIALIZATION 16-SEP-1984 00:14: AX/VMS Macro V04-00 Page 4 10] 
ALOSPT = ALLOCATE AND FILL SPT ENTRY FOR mets 90313545 ORES 9 (33) v04- 
A 1st ‘ .SBTTL ALOSPT = ALLOCATE AND FILL SPT ENTRY FOR BUFFER WINDOW 
106A 1 48 t ALOSPT ALLOCATES AN SPT SLOT TO wee USED FOR BUFFER OVERMAPP ING WHEN 
126A 1969 : PERFORMING ECC CORRECTION OR OTH 
126A 1950 : THE SYSTEM PAGE TABLE ENTRY FOR THE ALLOCATED EYSTEM. VIRTUAL PAGE NUMBER 
126A 1951 : WILL BE SET VALID, KERNEL WRITABLE BUT MAPPED TO A NON-EXISTENT PHYSICAL PAGE. 
oA 1958 : A FATAL ERROR MESSAGE WILL BE GIVEN IF UNABLE TO ALLOCATE SPT 
126A 1954 : INPUT: 
° 126A 1955 : BOOSGL_SPTFREL - LOWEST FREE SYSTEM VPN 
én 1996 ; BOOSGL~SPTFREH = HIGHEST FREE SYSTEM VPN 
126A 1958 ; OUTPUT: 
126A 1959 : SYSTEM VPN ALLOCATED 
6A 1960 ; SAMGSeL “SPTBASELRO] = PTESM_VALID!PTESM_PFN!PTESC_KW 
126A 196¢ ALOSPT: : 
50 90000000" EF do 1 6A 196 MOVL BOOSGL SPTFREL,RO : GET NEXT AVAILABLE SYSTEM VPN 
00000000 ‘EF 0 D1 1271 1964 CMPL 0,BOO$SGL _SPTFREH 3; CHECK FOR REALLY AVAILABLE 
15 1278 1965 BLEQ + BRANCH IF YES 
51 EED3 CF 9E& 127A 1966 MOVAB NOSPT,R1 : SET ADDRESS OF ERROR MESSAGE 
D4 127F 1967 CLRL : INDICATE CONSOLE TERMINA 
Q0000000'EF 16 1281 1968 JSB EXESOUTZSTRING + OUTPUT ERROR MESSAGE 
00 1287 1969 HALT : loon FATAL ERROR eee 
90000000" EF D6 1288 1970 10S: INCL  BOOSGL_SPTFREL VPN N ALLOCATED 
SO1FFFFF 8F DO 128E 1971 MOVL #<PTESC KW! PTESM vaLio:Ptesn, PFN! PTESC_K 
00000000'FF40 vm 34 197 a @MMG$GL ~SPTBASELRO] SET SPTE VALID. CURT TABLE. NONEXISTENT PFN 
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NITIALIZATION 16-SEP-19 AX/VMS M vO4~ P 47 
ECT CODE Bre eer1o8e Osiugiss PANCMES Macro yO%~00 29° (33) 
1975 «SBTTL RESIDENT PSECT CODE 

1976 -PSECT XDELTA,BYTE 

1978 : INITIAL BREAKPOINT 

13 0: : INPUT: 

13 ; NONE 

19 : OUTPUT 

13 23 3 CAUSES ENTRY TO DEBUGGER VIA BREAK POINT 

19 gi { seeee WARNING DO NOT ALTER THIS ROUTINE, JUST A BPT AND RETURN. 

1988 ° 

1989 INISBRK:: 

1990 BPT ; STARTS AS BPT, CHANGED TO NOP 
1991 RSB + RETURN 

1338 

\30¢ ; MASTER WAKE INTERRUPT, CAUSED BY SOFTWARE LEVEL 5 INTERRUPT: 
1996 ; -PSECT $AEXENONPAGED,LONG 

1998 ALIGN LONG 

1999 INISMASTERWAKE:: ; SOFTWARE LEVEL 5 INTERRUPT 
2000 JSB "G*INISBRK : CALL BREAKPOINT SUBROUTINE 
001 : RETURN FROM INTERRUPT 


D 12 
INIT PROCESSOR INITIALIZATION 16-SEP-1984 00:14: AX/VMS Macro V04- Page 48 
v04=000 RESIDENT PSECT CODE ae 99:13:48 OYS SRCTINIT MARES 9° 3a) 
7 33 
7 4 ; MAKE SYSTEM CODE READ ONLY, MAKE SYSTEM CODE READ/WRITE 
, 5 : USED BY XDELTA AND INIT. 
u $ $ INPUTS: NONE 
, 09 : OUTPUTS: ALL REGISTERS PRESERVED 
0000 iy ’ -PSECT XDELTA,BYTE 
18 .ENABL LSB 
14 INISWRITABLE:: 
OF 8B 15 PUSHR #*M<RO,R1,R2,R3> ; PRESERVE REGISTERS USED 
50 OE 9A 004 o16 MOVZBL #PRTSC_URKW,RO ; PROTECTION TO USE 
009 O18 INISRDONLY: : 
OF BB 0009 2019 PUSHR #*M<RO,R1,R2,R3> ; PRESERVE REGISTERS USED 
50 OF 9A 0008 0 p is MOVZBL #PRTSC/UR.R : PROTECTION TO USE 
53 OO36'CF DE 000e 0 : "  MOVAL =s«WSINI_RDONLY_LIST,R3 ss: GET START OF READ ONLY LIST 
18 00000000" EF 00° 50 013 20 BBS S*#EXESV_SYSQRTABL,EXESGL_FLAGS,60$ ; BRANCH IF LEAVING SYSTEM WRITA 
1 83 p 0018 024 MOVa = (R3)4,R1 :"GET A SET OF ADDRESS LIMITS 
13° «1 Or 0 3 a BEQL 608 > DONE IF NULL 
00000000'FF41 04 1B 50 FO 60 Te ae INSV RO, #PTESV_PROT,#PTESS_PROT, @MMGSGL_SPTBASELR1] ; SET PROTECTION 
FFFO 51 04 52 F1 OO2A 2028 ACBL _R2.#4,R1,20$ ; FOR EACH "PA 
003 0 ; “is INVALID : INVALIDATE THE TRANSLATION BUFFER 
OF BA 3h 31 "—- POPR: «ss #*M<RO,R1,R2.R3> ; RESTORE SAVED REGISTERS 
05 00 0 : RSB t AND RETURN TO THE CALLER 
0036 033 .DSABL LSB : 
0036 0 5: LIST OF READ ONLY SECTIONS IN THE RESIDENT EXEC 
0036 0 $ {NI_RDONLY_LIST: : 
6 2038 “LIST MEB 
0036 2039 PURE § MMGSFRSTRONLY,<> : SECOND LONGWORD LOADED BY INIT 
FF000000" 9 6 - LONG <MMGSFRSTRONLY-<1831>>8-7 ; 
O3E 2040 PURE §§ MMGSAL_BEGDRIVE MAGSAL ENDDRIVE : 
FFO00000' 00 6 .LONG <MMGSAC_BEGDRIVE-<1a315>a- ; 
OOFFFFFC* O42 te .LONG <MMGSAL“ENDDRIVE-*x80000200>@-7 : 
ag i ; THE LIST MUST TERMINATE WITH THE FOLLOWING TWO DESCRIPTORS 
4 44 P M: : 
et 4g 45 a PURE <> ,MMGSAL_PGDCODEN > FIRST LONGWORD LOADED BY INIT 
OFFFFFC' OOGA [LONG  <MMGSAL_PGDCODEN-*X80000200>a-7 ; 
00000000 00000000 4 site “LONG 0.0 ; NULL DESCRIPTOR TO TERMINATE 
056 2048 TEND = EXESINIT : 
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PS$B_ 5 BOOSL_SYS_MAP = 14 | 
ADPSL-LINK = BOOSL-SYS_VBN = o¢ 
ADPSW_ADPTYPE = E BTDSK-UDA s 
ADPSW_T = f CLASS_DDT z 9 
ALLOC”CRB R 4 CLASS_GETNX s 9 
ALONORPAGED 121A R 4 CLASS PUTNXT s 4 
ALOSPT 126A R 4 CLUSAC_LOAVEC eeneneee =X 
ARCSM_CHAR_EMUL = 1 CLUSGL-ALLOCLS eeneeeee § x 
ARCSM_CRC_EMUL = CLU_LOADCODE 90 6 
ARCSM_DCMC_EMUL = CONSC_CLRCOLD s 8 4 
ARCSM_DFLT_EMUL s 1 CONSC”CLRWAR = 000 3 
ARCSM_EDPC_EMUL = $8 oe CONSINIT CTY eeerenee =X 
ARCSM_FFLT_EMUL = 0 CONSSENDCONSCMD aeeeeren =X 
ARCSM_GFLT_EMUL = 000 tH CR s $00 D 
ARCSM_HFLT_EMUL = 80 CRBSB_TYPE z A 

CORNUC 17A R o% CRBSC_LENGTH = 3 00048 
BADDSKUCB OOO01A1 R 4 CRBSL_INTD = oe 
BADTTYDRV OOOOICA R 04 CRBSL_WOBL = 00 4 
BAD_ADDRESS OOOOIFF R 6 CRBSL_WOFL = 000 $ 0 
BAD- OPCODE O88 sae R 4 CRBSW_REFC = 0000 4 
BDLSGL_DISK_LOG 0 8 RG 04 CRBSW_SIZE = 0000000 
BDLS$L_SYSOLOG = 0000 8 4 G DDBSB_TYPE = atts 
BDLS$S_CRELNM_ITMLST = 00000074 G DDBSK_LENGTH = 00000044 
BDL_L_DISK_AT PTR = BR OERO8 DDBSL_ALLOCLS = 0000003C 
BDL-L_DISK_EQ? = 0000001D DBSL_DDT = 4444545 
BDL_L_DISK_EQ_PTR = 94 44 DOBSL_LINK = 0000 S34 
BDL_L_SYSD_AT PTR = 0000 b8 $L_SB = +4444 4 
BOL_L-SYSD_EQ? = 00000051 $L_UC = 00000004 
BDL_L_SYSD_EQ_PTR = 00000044 DOBST_DRVNAME = +9694 
BDL-W~StSD-E0-$7 = 000006 DDBSU SITE : 0000 08 

= 

BOOSGB_NODENARE eeeeeere =X = 04 VSa_ = 990200 
BOO$GB_SYSTEMID eenenere =X o% DPT$B_FLAGS s $808 0D 
BOO$GL -BOOTCB teeeeeee =X 4 DPT$B_TYP = 8 OOA 
BOO$GL"CLSLOA teeeeeee =X 04 DPTSL_FLINK = 00000000 
BOOSGL_DEV eeenenee =X 04 DPTST_NAME = 00000020 
BOOSGL _DSKDRV teeneere =X 8 04 DPTS$V_ 2 4444 1 
BOOSGL-ERAPATLOA eeeneeee =X 04 DPT$W_UCBSIZE = 0000 $ E 
BOOSGL — F PEMUL eeneeeee =X 04 DPTS$W_VECTOR = 0000 it 
BOOSGL—LRPMIN eeneeeee x 04 DYNSC— = 000 09 
BOOSGL_LRPSIZE eeeeeeee = X 04 DYNSC_DDB = 00000006 
BOOSGL-LRPSPLIT teeeeeee xX 4 DYNSC_DPT z $ Ore 
BOOSGL-MTACCESSLOA aeeeneee =X 4 DYNSC_HEADLEN = 000C | 
BOO$GL_NPAGEDYN eereeeee =X 4 $C" 1DB = 
BOOSGL—PRTDRV eeeeeere =X 4 DYNSC_INIT z 
BOO$GL"SCSLOA teeeeeee =X 4 DYNSC_LKID = $ 
BOOSGL-SPLITADR eeeeeere Xx 4 DYNSC_MPWMAP s 4 
BOOSGL- SPTFREH eteeeeee =X 4 YNSC_ORB s 49 
BOOSGL" SPTFREL eeneeeee = X 04 DYNSC_PCBVEC s 1 
BOOSGL-SRPSPLIT eeeneere =X 4 YNSC_PFL = 
BOO$GL"-SYSLOA eerenere =X 4 DYNSC_PHVEC s 
BOOS$GL— TRMDRV tererere§ X 04 DYNSC_PRCMAP = 
BOOSGL ~UCODE eeneeeee =X 4 YNSC_PTR s 5 
BOOSGL— VAXEMUL eeeeeeee§ = X 04 DYNSC_RBM = 1 
BOO$SGOQ"F ILCACHE eeeeeree § xX 4 DYNSC_RSHT z 
BOOSGT” TOPSYS tererere =X 4 DYNSC-SCS z ° 
BOOSL _CHECKSUM = 00000000 DYNSC_SCS_SB = 0 | 
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1OCSGL_LRPSIZE 
IOCSGL“LRPSPLIT 
CS$GL-SRPBL 


SGL_SRPSIZE 
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TT2$A_AUTOBAUD z § 
TTY$GC_DPT eeeeeree X= 04 
UCBSL_ASTOFL = ¢ 
UCBSL_CRB = 
UCBSL_0DB = H 
UCBSL_DDT = 
UCBSL “DEVCHAR2 s ¢ 

CBSL_100 = 

UCBSL_I0QFL = 4¢ 

CBSL_ s i 

CBSL_SV = 
UCBSL_TT_CLASS = 14 
UCBSL_TT_DECHA1 = 0c8 
UCBSL_TT_DECHAR = 9 Oh 
UCBSL_TT_GETNXT = 1 
UCBSL_TT_PORT = 11 
UCBSL_TT_PUTNXT = 0000011 
UCBSM_VACID = 99 80 
UCBSW_MSCPUNIT = 00000004 
UCBSW_SIZE = 90008 

CBSW_STS = 9 $4 
UCBSW UNIT = 00054 
ASS_9 = 99 915 
vy og = 9 OF 
= 
VECSC_ADP = $0000%4 
VECSL_I = 900008 
WCBSB_ACCESS : 9 0 
WCBSB_TYP = A 
WCBSC_LENGTH = 9 0 
WwCBSC MAP = 
WCBSL_ORGUCB = 90 10 
WCBSL_STVBN = 0 26 
WCBSM_CATHEDRAL = 0004 
WCBSM_COMPLETE = 000 90 0 
WCBSM_NOTFCP = 000 4 
WCBSM_READ = of 1 
wCBSW_ = 3 1 
wCBSW SIZE = 0000000 
XDELBPT eeeeeere 8X 04 
XDEL TABASE 00000000 R 2 
XDELTBIT eereenee xX 4 
XDEL_LOADBASE eeeneeee x 4 
XDSSGOL_XESTRING erereree 4 
XDSSGL_XF STRING eeeeeere xX 4 
XDSSGT_LONG_PFN eeeereee YX 4 
XDSS$GT_WORD_PFN eeeeeree 4 
cl 
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Psect synopsis $7 set} 90:15:28 Se VERCTINTT Maney ett (3a) 


+e meer eamrennr neocon $ 


! Psect synopsis ! 


¢ weer mm crea nanean 


PSECT name Allocation PSECT No. Attributes 

» 8 -« ( -)» 00 ¢ -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS ( 7 | -) NOPIC USR CON ABS LCL NOSHR EXE’ RD WRT NOVEC BYTE 
ZSDEBUGA ( ») § ( 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
ZSINIT ( -) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVE 
ZSINIT 1 ( ”" -) 06 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC PAGE 
XDELTA 0056 ¢ 8°} 5 ( 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
SAE XENONPAGED 000007 ( -) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC L 

$oeocenwmeeceece aoe sos anaes e > 
; Performance indicators : 

Phase Page faults CPU Time Elapsed Time 

Initialization 9 :00:00.07 :00:00.7 

Command processing 16 80; if 8-97 00:00:09-59 

Pass 1 804 88: : 9-§7 3: 1: 1-$3 

Symbol table sort :00:05.90 :00:21. g 

ass 2 86 0:08.31 Hf on 

Symbol table output 2 0:00:00.43 00:00:00.97 
Psect synopsis output B38: 3-83 00:00:00.40 

Cross-reference output 0:00: 90 00:00:00.00 
Assembler run totals 1826 0:00:51.9 00:02:41 .06 


The working set Limit was 2400 pages. 

210057 bytes (411 pages) of virtual memory were used to buffer the intermediate cod 
There were 200 pages of symbol table space allocated to hold 3704 non-local and 103 
048 source Lines were read in Pass 1, produc tng 49 object records in Pass 2. 

62 pages of virtual memory were used to define 61 macros. 


e. 
local symbols. 


$e ce eme rene now eoann was es eee wm $ 


H Macro Library statistics : 


Macro Library name Macros defined 
$255$DUA28: (SYS.OBJJLIB.MLB;1 44 
Bitty Hattie STARLET .MLB;2 12 
TOTALS (all Libraries) 56 


3708 GETS were required to define 56 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: INIT/OBJ=OBJ$: INIT MSRC$: INIT/UPDATE=(ENHS: INIT) +EXECMLS$/LIB 
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